DDDDDDDDDDDD ccccccecccccce «LLL 
DODDDDDDDDDD cccccccccccc LLL 
cecccccccccce «LLL 


DODDDDDDDDDD 
DOD DDD ccc LLL 
DOD DDD ccc LLL 
DDD DDD CCC LLL 
DDD DdbD CCC LLL 
DOD DdDD CCC LLL 
DOD DDD ccc LLL 
DDD DDD ccc LLL 
DDD DdDD ccc LLL 
DDD DDD CCC LLL 
DOD DbD CCC LLL 
DOD DOD ccc LLL 
D DDD CCC LLL 
DOD DDD ccc LLL 
DOD DOD CCC LLL 
DOD bbdD CCC LLL 
DDDODDDDDDDD CCCCCCCCCCCC LLL LLLLLLLLLLL 
DODDDDDDDDDD CCCCCCCCCCCC LLL LLLLLLLLLLL 
DDDDDDDDDDDD CCCCCCCCCCCC LLLLLELLELLLLLLLL 


**F ILE**]D**PARSENT 
PPPPPPPP AABAAA RRRRRRRR SSSSSSSS EEEEEEEEEE NN NN TITTTTTTIT 
PPPPPPPP AAAAAA RRRRRRRR SSSSSSSS EEEEEEEEEE NN NN TTTTTTTTTT 
PP PP AA AA RR RR SS EE NN NN TT 
PP PP AA AA RR RR SS EE NN TT 
PP PP AA AA RR RR SS EE NNNN NN TT 
PP PP AA AA RR RR SS EE NNNN NN TT 
PPPPPPPP ae AA RRRRRRRR SSSSSS EEEEEEEE NN NN NN TT 
PPPPPPPP aa AA RRRRRRRR SSSSSS EEEEEEEE NN NN NN TT 
PP AAAAAAAAAA RR RR SS EE NN NNNN TT 
PP AAAAAAAAAA RR RR SS EE NN NNNN TT 
PP Aa AA RR RR S$ GE NN NN TT eves 
PP a AA RR RR SS EE NN NN TT cee 
PP AA AA RR RR SSSSSSSS EEEEEEEEEE NN NN TT teee 
PP AR AA RR RR SSSSSSSS EEEEEEEEEE NN NN TT eeee 
LL IIIII] SSSSSSSS 
LL IIIT] SSSSSSSS 
LL I] SS 
LL II $$ 
LL I] SS 
LL I] SS 
LL I] SSSSSS 
LL I] SSSSSS 
LL I] SS 
LL I] SS 
LL I] SS 
LL I] SS 
LLELLLLLLLL III] SSSSSSSS 
LLLLLLLLLL HI! SSSSSSSS 
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(3) 140 
(4) 329 
(5) 4 
rt 
(8) 33 
(9) 87 
(10) 944 
(11) 1138 
$383 1183 
(13) 1222 
(14) 1314 
(15) 1394 
(16) 1475 
(17) 1537 
(18) 1648 
(19) 1794 
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PROCESS FIL 3 SPECIFICATION 
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ROCESS SDATETIME VALUE 
ROCESS SPARENTHES IZED VALUE VALUE 
ROCESS SACL VA 
PROCESS SEXPRESSION VALUE 
ISSUE PROMPT PEL M ncriaias 


CHANGE COMMAND. SYN 
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vou=000 or8Ep=1 984 HEHE LOCLYSRCIPARSENT -MARS 1 . (1) 
-TITLE PARSENT = PARSE PARAMETERS AND QUALIFIERS 
~-IDENT ‘v04-000' 


~MARBAABRAARAABAALALALALAAAAAAAARAAASALALASALELA AREAS EARS RASA SERRE SERA E ERLE SASS SY 


COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
a ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE 
S 


® 
® 
® 
® 
* 
* 
a 
ON OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
0 PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
TRANSFERRED. * 
® 

THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
AND SHOULD NOT BE CONSTRUED AS A COMMIT * 
CORPORATION. “ 
® 

te 

® 

® 

* 

* 


DIGITAL ASSUMES NO RESPONS 
SOFTWARE ON EQUIPMENT WHIC 


MENT BY DIGITAL EQUIPMENT 


ITY FOR THE USE OR RELIABILITY OF ITS 


BIL 
IS NOT SUPPLIED BY DIGITAL. 


I 
H 


De Se Be Be Be Oe Se Se Ge Oe Se Se Se Se Se Se Se Se Se Se 
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TTT IET ITI SATIS ii Titi tii iii iii titi iiitiiiiiiiiiiiiiiiiiiiiiiiiiiiriyy) 
D. N. CUTLER 24-MAR-77 
PROCESS QUALIFIER SPECIFICATION 


MODIFICATIONS: 
v03-018 HWS0027 Harold Schultz 09-Mar-1984 
Check for error when expanding an expression. 
v03-017 HWS0021 Harold Schultz 06-Mar-1984 


Don't issue warning pessoge about ignored qualifiers due 


Support null node names. 


v03-013 PCGO016 | Peter George 27-Jun-1983 
Fix bug in S$REST_OF_LINE. 
v03-012 PCG0015 Pe 


NOUS AR 20 OO NOAUE WIN 0 OD NAME WIN 9 OD NOU EWN O ODNAOUE WH OOONOU Ewin 


MUMIA BB ERE EES BWW II inonononononononnnn 2 2] 2 a 2 


to a eyates change when the only previous qualifiers 

0 were the one responsible for the syntax change. 

8 Fix typo's. 

0 v03-016 PCG0019 Peter George 18-Nov-1983 
$08 Allow hyphens in filenames. 
000 v03-015 PCG0018 ; Peter George | 17-Aug-1983 
060 Disable indirection when looking ahead for keyword values. 
000 v03-014 PCG0017 Peter George 17-Jul-1983 
p 5 Signal ignored qualifier message. 

Uv 


ter George 1$=Jun-1983 
Add support for SFILE, SEXPRESSION, SQUOTED_STRING, and 


PARSENT 
v04-000 


Bs 
60 
33 
ae 
00 65 
000 06 
000 6 
0000 08 
38 
0000 71 
0000 ie 
0000 ? 
0000 74 
0000 75 
0000 ug 
0000 ? 
0000 78 
0000 79 
0000 $0 
0000 1 
0000 Hf 
0000 
0000 84 
0000 85 
0000 86 
0000 87 
0000 88 
0000 89 
0000 90 
0000 91 
0000 9 
0000 9 
0000 94 
0000 95 
0000 96 
0000 97 
0000 98 
0000 99 
444 190 
Hin 
000 1 
4 ' : 
3 |e 
3 8 
3 18 
HH 
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SPARENTHESIZED_VALUE. Rename old SPARENTHESIZED_VALUE 
SACL. Improve error reporting. 


v03-011 PCGO0014 Peter George 
Add supper’ for $SDELTATIME. 
Remove DCLSSORT_TOKENS. 


v03-010 PCG0013 Peter George 
Add DCLSSORT_TOKENS. 


v03-009 PCG0012 Peter Soores 
Move disallow logic into DISALLOW. 
Add WRK_B_PARMSUM. 


v03-008 PCG0011 Peter George 20-Apr-1983 
Undo the part of the Last fix dealing with negated 
entities and syntax checks. 


v03-007 PCG0010 Peter George 
Add more pyrenscer Limit checks. 


16-SEP-1984 


27-May-1983 


06-May-1983 


30-Apr-1983 


07-Apr-1983 


Modify ambiguous verb check. 

Do not change syntax on negated qualifiers or keywords. 
v03-006 PCG0009 Peter George 15-Feb-1983 

Convert to new structure level. 

Pass entity block address to DCLSGENDESCR. 

Do not allow values on nopeces qualifiers. 

Add support for SNUMBER, SPARENTHESIZED_VALUE, 


and SDATETIME. 


v03-005 PCG0008 Peter George 
Make NOQUALIFIERS work. 


v03-004 PCG0007 Peter George 22-Nov-1982 
Use prompt descriptor instead of WRK_L_PROMPT. 


v03-003 PCG0006 Peter George 29-0 t-1982 
Insert CRLF into DCL prompts. 


v03-002 PCG0005S Peter George 
Call user input routine with address of 
instead of address of ascic ety ine. 
Use constant for maximum prompt string length. 
Do the right thing when a CIRL/Z is entered. 
Do not zero out parameters before a syntax change. 
Check full spelling of pegated pevyorss. 
Zero R6 after parsing SREST_OF LINE value. 


v03-001 PCG0004 Peter George 30-Sep-1982 
Add keyword parsing. Create more common porsing 
routines. Add prompting for CLISDCL_PARSE. 


15-Jan-1983 


19-0c t-1982 


string descriptor 
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0 113 ; 
We 3; MACRO LIBRARY CALLS 
118 PRCDEF 3; DEFINE PROCESS ee poy 
11 ited 3; DEFINE COMMAND W AREA 
0 118 TRDEF 3; DEFINE RESULT PARSE DESCRIPTOR 
0 11 S{LIRSGDEr 3; CLI MESSAGES 
0 120 $F SCNDEF ; DEFINE FILE SCAN SYMBOLS 
O80 } 1 SSCLITABDEF ; DEFINE TABLE STRUCTURES 
"9809 ! -PSECT DCL$ZCODE,BYTE,RD,NOWRT 
0000001A 900 ' 5 CTRLZ = 26 3; CONTROL/Z CHARACTER 
$609 1 § : 
0000 128 ; DEFINE LOCAL FLAGS 
0000 129; 
00000000 0000 130 V_NEGAT = 0 
00000001 0000 131 MINEGAT = 1 
00000001 0000 1 § V_KEYWD = 1 
SOON D ONS 44 133 M_KEYWD = 2 
0000000 4 134 V_SYNTAX = 2 
00000004 000 135 MISYNTAX = 4 
00000003 0000 136 V_AMBIG = 3 
00000008 i | i M-AMBIG = 8 
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0 140 «SETTL PARSE COMMAND QUALIFIERS AND PARAMETERS 
o 14 ; DCLSPARSE_COMMAND = PARSE COMMAND QUALIFIERS AND PARAMETERS 
144 ; THIS ROUTINE IS CALLED AFTER THE COMMAND VERB HAS BEEN PARSED, TO PARSE 
145 > WHATEVER QUALIFIERS AND PARAMETERS MAY APPEAR ON THE COMMAND LINE. 
3 149 : INPUTS: 
§ 149 : 10 = ADDRESS OF COMMAND WORK AREA 
000 130 : 11 = ADDRESS OF PROCESS WORK AREA (FOR SUPERVISOR MODE PARSING) 
009 133 : OUTPUTS: 
000 154: RO = STATUS 
000 155: NO REGISTERS ARE SAVED 
000 138 s 
S000 ah 
$008 159 DCLSPARSE_COMMAND: : 
0040 8F AB 0000 160 BISW #WRK_M_VERB,- :SET VERB PROCESSING FLAG 
FO AA 0004 161 WRK Ka "FLAGS (R10) 
at 
9006 164 : PROCESS ALL LEADING COMMAND QUALIFIERS 
0006 166 BARSE_QUAL: 
FFF?" 30 0006 16 BSBW DCLSSETCHAR :PEEK AT NEXT CHARACTER IN INPUT BUFFER 
50 2F 91 0009 168 CMPB OW“ A'/* SQUALIF IER? 
0c 12 000C 169 BNEQ PARSE BARNS [IF NEQ NO 
FFEF ; 000E 170 BSBW = DCLSMARK [MARK CURRENT PARSE POSITION 
0143 30 0011 171 BSBW DCLSPROCQUAL SPROCESS QUALIFIER 
EF 50 Es 0014 1% BLBS § RO, PARSE_QUAL SIF LBS SUCCESSFUL COMPLETION 
011A «331. «0017”—é=«*G17 BRW Exit SUNSUCCESSFUL, EXIT WITH STATUS 
Sola ee 
OIA 176 : : PROCESS EACH COMMAND PARAMETER AND ITS ASSOCIATED QUALIFIERS 
ar 178 BARSE_PARMS: 
0040 af 1A 179 10$: ~ BIcW #URK MAVERB = ;CLEAR VERB PROCESSING 
58 6 AA 00 0 6 18 OVE URE“LZPROBTRCROD RB :GET ADDRESS OF Pl ENTITY BLOCK 
50 CE AA 9A 0 oe 5 MOVZBL WRK_B_PARMCNT(R10) ,RO iGET PARAMETER # BEING PARSED 
09 «13 A 184 BEQL 0s” :BRANCH IF NO LOOP 
08 AB Ci O002C 185 208: ADDL ENT _LNEXT(R 3GET ADDRESS OF NEXT ENTITY BLOCK 
58 DE AA O2F 1 6 WRK hs “TAB_ Weetaion. RB 
F750 «FS «(00 , SOBGTR SLOOP UNTIL PARAMETER FOUND 
FFC8" 189 30$ BSBU = DCLSMARK MARK CURRENT PARSE POSITION 
FFC5* 0 B 1 0 BSBW DEL See TCHAR PEEK A T NEXT CHARACTER IN INPUT BUFFER 
7% 19 BEQL END Of LINE SIF EQL END OF LINE 
50 20 91 00 198 CMPB OO #*AY TR SBLANK? 
63 12 04 19 BNEQ $ [IF NEQ NO 
CE AA 96 0042 194 INCB © WRK_B_PARMCNT(R10) i INCREMENT COUNT OF PARAMETER 
CE AA 91 04 195 CMPB = WRKTBTPARMCNT(R10),= — ;MAXIMUM PARAMETERS EXCEEDED? 
DO AA 48 196 WRK~B-MAXPARM(R10) : 


mae — ee 
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2A 1h rh 197 BGTR 1008 :BR IF SO 
FFBI' 30 4C 199 40$: BSBW DCLSMARK sMARK CURRENT PARSE POSITION 
53 03) (OA (004 00 MOVZBL #PTR_K_PARAMETR,R [SET CLASSIFICATION OF VALUE STRING 
CF AA 96 005 1 INCB = WRK_6_ PARReUnAtod SINCREMENT COUNT OF PARAMETER VALUES 
5 ps 05 é CLRL ‘CLEAR PARENTHESIS FLAG 
93 0 30 005 BSBW DCLSPARSE_VALUE ‘PROCESS PARAMETER VALUE 
2350 €9 O5A 4 50$:  BLBC ‘IF LBC, THEN PARSE ERROR 
FFAO’ 30 05D 06 BSBW DCLESETCHAR :PEEK AT NEXT CHARACTER IN INPUT BUFFER 
50 Hi 1 006 0 CMPB SQUALIF IER? 
5 12 06 08 BNEQ 608 [IF NEQ NO 
OOEF 3 6 9 BSBW DCL SPROCQUAL SPROCESS QUALIFIER 
FO. 11 068 10 BRB SCHECK FOR ANOTHER QUALIFIER 
50 2C 91 006A le 60S: CMPBséW#*A",*, RO :MULTIPLE PARAMETERS? 
14 13 006D 21 BEQL 1108 TIF EQL Y 
50 26 91 O06F 14 CMPB Os #*A' +" RO [CONCATENATED PARAMETERS? 
0 13 0072 215 BEQL 1208 SIF EQL 
AG 11 0074 18 BRB 10$ ‘PROCESS NEXT PARAMETER 
ae 
0076 19 : MAXIMUM PARAMETER COUNT EXCEEDED 
FF87" 30 0076 221 1008: BSBW  DCLSGETOKEN sGET NEXT 
0079 32 TATUS MAXPARM SFT AAKINUR PARAMETER COUNT EXCEEDED 
0081 31 0080 23 190$: BRW SEXIT WITH STATUS 
ae 
0083 $ : PARAMETER LIST SPECIFIED 
05 £0 tk 8 110$: BBS fENT_V ;1F SET, LISTS ALLOWED 
C4 04 AB 0085 4 ENT o. FLAGS RB) 40$ 
FF75° 30 pees § 0 BSBW SCL SM OvT SGET ‘',"" AND TOKEN 
088 231 STATUS NOLIST :SET NO LISTS ALLOWED STATUS 
EC 11 0092 332 BRB 190$ ‘EXIT WITH STATUS 
ae 
0094 35 > PARAMETER CONCATENATION SPECIFIED 
06 €0 0094 237 1208: BBS #ENT_V_CONCAT s1F SIT, CONCATENATION ALLOWED 
B3 04 ABs 0096 38 ENT @ FLAGS(RBD 40$ : 
FF64" 30 0099 9 BSBW BCL SR OvT :GET ‘'+"' AND TOKE 
9 40 STATUS NOCCAT SET NO CONCATENAT ION ALLOWED STATUS 
bBo én? As 41 BRB 190$ SEXIT WITH STATUS 
BAe 508 
ns 44 : INVALID PARAMETER DELIMITER 
FF58° 30 00A5 46 130$: ®BSBW DCLSMOVTOKN :GET DELIMITER AND TOKEN 
OAB «04 STATUS PARMDEL [SET INVALID PARAMETER DELIMITER STATUS 
CF 611 «(OOAF 48 BRB 190$ SEXIT WITH STATUS 
be! 580; 
31 ALL COMMAND INPUT PROCESSED = CHECK FOR SUFFICIENT PARAMETERS 
081 3g END_OF LINE: 


ee 


ann 
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1 STATUS MAXPARM sASSUME MAXIMUM PARAMETER COUNT EXCEEDED 

ce AA 91 00B8 CMPBsWRK_B -PARMCNT (R10), = [MAXIMUM PARAMETERS EXCEEDED? 
DO AA BB WRK-B-MAXPARM(R10) : 

20 14 00BD BGTR 2108 ~ :BR IF SO 

> BBSS §§ #WRK_V_PROMPT,- TIF SET ALREADY PROMPTING 
2B FO AA WRK_@_FLAGS(R10) PROMPT ; 

CE AA 91 CMPB = WRKB"PARMCN NT CRIOD SSUFFICIENT PARAMETERS? 
D1 AA WRK ~B-MINPARM(R10) : 

6C «(18 BGEQ  NORMAC_EXIT TIF GEQ YES 


3 : DO NOT PROMPT IF WE ARE PARSING A DCL COMMAND WITHIN A COMMAND PROCEDURE OR 
; A BATCH JOB. IF WE ARE PARSING A USER COMMAND, THEN DO NOT PROMPT IF THE 
; USER HAS NOT SUPPLIED A PROMPT ROUTINE. 
TSTL  WRK_L_PROMPTRTN(R10) :D0 WE HAVE A PROMPT ROUTINE? 
BEQL 2008 ~ ‘SIGNAL ERROR IF NOT 
BBS #URK V_USR SIF SET THEN USER PROMPT ROUTINE 
Kk Q FLAGS(RIOD PROMPT ; 


SO 98.09.09 09 09 09 09 09 09 008 SI NIN SI NSIS SENSI SIA AAAAAAOOOOUUIUINIUNNIU 


CNAME WN OOP NAUE WN $0 ODNAU EWN (OOD NOUS WN OOONOUNS 


FOA6 CAD § 
OD i 8 
19 FO AA 
0B £0 8 BBS OER YLEVEL i1F SET, AT CONTROL Y/C LEVEL 
14 68 AB 0 PRC_O.FLAGS(RI1) PROMPT ; 
5C AB. ODS TSTL = PRCLTINDEPTH(R114) : INDIRECT LEVEL ZERO? 
ae Se BNEQ 2008 © SIF NEQ N 
06 £1 0 BBC #PRC SIF CLR, INTERACTIVE MODE 
OA 68 AB 0 PRC CY Flacstatt). PROMPT ;: 
0 200s: STATUS INSFPRM :SET INSUFFICIENT PARAMETERS 
0045 31 6 10$: BRW EXIT SEXIT WITH ERROR STATUS 
0 3 
8 ; PROMPT FOR MISSING PARAMETERS 
CE AA 91 O PROMPT: CMPB = WRK_B_PARMCNT(R10),- ;ALL PARAMETERS PROCESSED? 
DO AA OOF WRK ~B-MAXPARM(R10 : 
41 18 OOF BGEQ NORMAL EXIT SIF GEQ YES 
0601 30 OOF BSBW ISSUE PROMPT sPROMPT FOR I 
05 51 €8 OOF BLBS ‘ :CONTINUE IF NO 
50 51 pO OOFC MOVL sMOVE STATUS BACK TO RO 
3311 «OOFF «= 29 BRB EXiT TEXIT WITH ERROR 
50 95 0101 92 220$: TSTB :CHECK FIRST CHARACTER 
07 12 0103 29 BNEQ 222% :IF EQL NULL LINE 
06 €0 0105 29 BBS #ENT_V_V :1F SET, PARAMETER REQUIRED 
ES 04 ABs 0107 9 ENT Q FLAGS) PROMPT : 
28 «611 «#O10K 29 BRB NORMAC_EXIT ;NOT REQUIRED, THEN EXIT 
1A 550—«é*727 19¢ 97 2228:  CMPB NOracTRET SCONTROL/2? 
1¢ 4613 © «O10F 9 BEQL § NO_COMMAND :CONTROL/2 TYPED = EXIT 
2F 650) «—97s«0111 99 CMPB wears SLEADING QUALIFIER? 
08 if 114 300 BNEQ $ : BRANCH olf NOT 
CE AA 95 9116 = 301 TSTB WRK _B_PARMCNT(R10) FIRST P TER? 
03 12 0119 0¢ BNEQ c~ ; THEN PARSE PARAMETER QUALIFIERS 
FEE? 1 0118 30 BRW DCLSPARSE_COMMAND ve THEN PARSE C UALIFIERS 
Fee 1 Ole 4 258: BRW PARSE, Quac TPROCESS PARAMETER QUAL RF IERTS) 
0 9¢ 0121 5 230$: MOVB #*Aa' *,- ;INSERT BLANK AT FRONT OF BUFFER 
F ABE DA 123 $ auRK L* CHARPTR(R10) 
F4B8E CA 7 126 : DECL K_C_CHARPTR(R10) ‘BACK UP CHARACTER POINTER 
FEED 1 A 08 BRW PARSE “PARMS sPROCESS PARAMETER 
12D 10 NO_COMMAND: 


Eee... 
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9 ; A S Macro V04- 
V04- PARSE COMMAND QUALIFIERS AND PARAMETERS : DCL.SRCJPARSENT .MAR; 1 
12D 11 STATUS NOCOMD 3SET NO COMMAND FOUND 
07 49 134 1§ EXIT BSBB DCLSGENEOL ;GENERATE AN EOL TOKEN 
0 : § 17 RSB RETURN 
137 315 NORMAL_EXIT: 
06 10 0137 18 BSBB DCLSGENEOL :GENERATE AN EOL TOKEN 
FECS* 30 0139 1 BSBW DCLSEVAL_DISALLOW sEVALUATE ANY DISALLOW EXPRESSIONS 
05 013¢ 18 RSB ;RETURN 
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RIPTOR 4-SEP-19 DCL.SRCIJPARSENT .MAR; 1 (4) 
A -SBTTL GENERATE AN EOL DESCRIPTOR 

DCLSGENEOL = GENERATE AN EOL DESCRIPTOR 

; THIS ROUTINE IS CALLED TO GENERATE AN END-OF=LINE TOKEN DESCRIPTOR. 

; INPUTS: 


AMET 
EOL 
0 
4 
§ : R10 = BASE ADDRESS OF COMMAND WORK AREA. 
; OUTPUTS: 
$ ; RO = RETURN STATUS 
4 ‘= 
5 
§ DCLSGENEOL:: 
4 RO 
8 
39 
40 
o 
23 
$e 
45 
346 
347 


50 =6DD SAVE RETURN STATUS 
54 4 CLRL R4 CLEAR ITEM NUMBER 
55 04 9A MOVZBL #PTR_K_ENDLINE,RS5 SET ITEM TYPE TO END OF LINE 
56 4 CLRL 6 CLEAR FLAGS 
57 O01 9A MOVZBL #1,R7 ;SET LENGTH OF ITEM 
58 F486 CA DO OVL WRK _i. EXPANDPTR(R10),R8 ;SET STARTING ADDRESS OF ITEM 
59. D4 CLRL ;CLEAR ENTITY BLOCK ADDRES 
AD’ 30 BSBW DCLSGENDESCR ;GENERATE END-OF=LINE TOKEN 
50 8EDO POPL RO RESTORE RETURN STATUS 
05 RSB RETURN FROM SUBROUTINE 


58 


01CO 8F 
56 


C4 AA 
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oo 


. 
° 
. 
o 
o 
eo 
. 
@ 
. 
e 
e 
. 
o 
oO 
. 
6 
. 
° 
. 
° 
° 
e 
. 
o 
. 
° 
. 
a 
a 
. 
@ 
* 
° 
° 
a 
° 
e 
° 
. 
o 
7 
o 
. 
° 
7 
os 
. 
a 
. 
. 


. 


$ AND QUALIFIE 1o-SEB~1984 90:19:27 AX/VMS Macro V04-00 Page 
SPECIFICATION 4=SEP=1984 23:42:11 CDCL.SRCJPARSENT.MAR;1 
: ~SBTTL PROCESS QUALIFIER SPECIFICATION 
DCLSPROCQUAL = PROCESS QUALIFIER SPECIFICATION 
: THIS ROUTINE IS CALLED TO PARSE A QUALIFIER SPECIFICATION AND EMIT A 
: DESCRIPTOR TO THE RESULT PARSE TABLE. 
: INPUTS: 
R10 = BASE ADDRESS OF COMMAND WORK AREA. 
OUTPUTS: 
RO LOW BIT CLEAR INDICATES FAILURE TO PARSE QUALIFIER SPECIFICATION. 
RO = DCL$_ABKEYW = AMBIGUOUS KEYWORD IN QUALIFIER. 
RO = DCLS"IMCHNG = MULTIPLE ATTEMPT TO CHANGE IMAGE NAME. 
RO = DCLS-IVKEYW = INVALID KEYWORD IN QUALIFIER. 
RO = DCL$-IVQLOC = INVALID QUALIFIER LOCATION. 
RO = DCL$-IVVALU = INVALID QUALIFIER VALUE SYNTAX. 
RO = DCLSNOKEYW = NO KEYWORD IN QUALIFIER. 
RO = DCL$"NOQUAL = NO QUALIFIERS ALLOWED ON COMMAND. 
RO = DCLSNOVALU = NO VALUE ALLOWED ON QUALIFIER. 
RO LOW BIT SET INDICATES SUCCESSFUL PARSE WITH THE QUALIFIER 
DESCRIPTOR EMITTED AND THE QUALIFIER SPECIFICATION COPIED 
TO THE COMMAND BUFFER. 
RO = DCL$_NORMAL - NORMAL COMPLETION. 
CLSPROCQUAL: : sPROCESS QUALIFIER SPECIFICATION 
PUSHR #*M<R6,R7,R8> SSAVE REGISTERS 
CLRL [CLEAR KEYWORD NEGATION FLAG 
INCB  WRK_B_VALLEV(R10) S INCREASE THE VALUE LEVEL 
GET QUALIFIER KEYWORD 
BSBW DCLSMOVCHAR sMOVE SLASH TERMINATOR 
BSBW DCLSMARK SMARK CURRENT POSITION IN BUFFER 
BSBW DCLSGETOKEN 'GET QUALIFIER NAME 
BEQL 908 [IF NONE, THEN ERROR 
CHECK THAT IT MATCHES AN ALLOWED QUALIFIER KEYWORD 
STATUS NOQUAL sASSUME NO QUALIFIERS ALLOWED ON COMMAND 
MOVL WRK_L_QUABLK(R10) ,R8 :GET ADDRESS OF QUALIFIER DESCRIPTORS 
BSBW DCLSF IND_KEYWORD [LOOKUP QUALIFIER 
BLBS RO,110$ [IF SUCCESSFUL, THEN CONTINUE 
RW $ SOTHERWISE, EXIT WITH ERROR STATUS 
0s: STATUS NOKEYW ‘SET NO KEYWORD STATUS 
0$: W 390$ SEXIT WITH ERROR STATUS 
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05 FO AA 
09 
05 04 A8 
08 
E7 04 AB 


OC 56 
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t 99: 19: ¢ AX/VMS Macro V04-00 Page 10 


DCL.SRCJPARSENT .MAR; 1 (5) 


: VALID KEYWORD MATCH FOUND = CHECK THAT IT IS POSITIONED CORRECTLY 


110$: STATUS IVQLOC 
BBS #WRK_V_VERB,- 
WRK_@ FLAGS(R10),120$ 
#ENT_0_PARM,- 
ENT_@ FLAGS(R8),125$ 
ENT (_VERB,- 
ENT_Q_FLAGS(R8),100$ 


BBS 
120$: BBC 


CHECK NEGATION 


ASSUME V V NEGAT EQ 0 
125$:  BLBC 

STATUS nOfNes” 

BBC WENT 
ENT_@ VFUAGS (RB), 100$ 


; PROCESS CHANGE LIST - IF ANY 

150$: TSTL ENT_L_SYNTAX(R8) 
BE os 

DCLSCHANGE_SYNTAX 


BS 
ASSUME PTR_V SYNTAX EQ 22 
B 4M Sa 


: GENERATE QUALIFIER DESCRIPTOR 


160$: MOVZBL #PTR_K_COMDQUAL,R5 
BBS #URK-V"VERB 
WRK Q FLACSERIOD . 170$ 


BBC E PARM, - 
ENT Q FLAGS(RB) 170$ 
MOVZBL eOTR RAPA RMQUAL .RS 


170$: mova R7,-TS 
MOVL R7,R4 
MOVL R8,RI 
BSBW DCLSMARKEDTOKEN 
MOVa RICR? 
BSBW DCLSGENDESCR 
MOVQ (SP)+,R7 


; CHECK FOR QUALIFIER VALUE(S) 


STATUS NOVALU 

MOVZBL #PTR_K_QUALVALU,R3 
BSBW OC DCLSTHECK K_VALUES 
BLBC 


: CLEAN UP AND EXIT 


sASSUME INVALID QUALIFIER LOCATION 
i IF SET, PROCESSING VERB 


TIF SET, ALLOWED ON PARAMETERS 
[IF CLR, NOT ALLOWED ON VERBS 


TBRANCH IF QU 
sASSUME QUALI 
:1F CLR, NOT 


ALIFIER WAS ref NEGATED 
FIER NOT NEGATABLE 
NEGATABLE 


;NEW COMMAND SYNTAX? | 
SBRANCH IF NOT | 
:PROCESS CHANGE LIST | 


:SET SYNTAX CHANGE BIT 
‘BRANCH IF NO QUALIFIER CHANGE LIST 
SINVALIDATE THIS QUALIFIER 


ASSUME COMMAND QUALIFIER 
:1F SET, PROCESSING VERB 


IF CLR, COMMAND QUALIFIER 

Be eh PARAMETER QUALIFIER 
I 

Aad ENTIT 

;GET QUALI 


GENERATE 
sRESTORE R 


ER 
CK ADDRESS 
DESCRIPTOR 
LT 
ER 


STER 
FIER 
Y 8 
FIE 
RES PARSE DESCRIPTOR 
EG] Ss 


L 
R 
UL 
ST 
UME VALUE - ALLOWED 


;ASS 

;SET VALUE TYP 
;CHECK FOR VALUES 
EXIT ERROR 


F 


= PARSE PARAM 


PROCESS QUALI 


roi 


UL cg Ue 
VALUE LEVEL 


TATUS NORMAL 
- WRK _B VAL EYCRTO) 
#*MZRE,R7,RB> 


DECB 
POPR 
RSB 


paar imines pi nan fen — 
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PARSENT = PARSE PARAMETERS AND QUALIFIERS lo-SEB-19 4 00:10:27 VAX/VMS Macro v04-00 Page 1 
‘voe=b00 FIND KEYWORD Bree eal obs Soic5it PARC WES acre. u04=00 wth 
4 469 -SBTTL FIND KEYWORD 
| 4 cn ; DCLSFIND_KEYWORD = LOOK UP SPECIFIED KEYWORD IN SPECIFIED LIST 
| 4 238 : THIS ROUTINE IS CALLED TO LOOK UP A SPECIFIED QUALIFIER OR KEYWORD 
04 474 ; IN THE APPROPRIATE LIST. IF THE SEARCH IS SUCCESSFUL THE QUALIFIER 
04 475 ; OR KEYWORD NUMBER IS RETURNED ALONG WITH THE ADDRESS OF THE ENTITY 
06 476 ; DESCRIPTOR BLOCK. OTHERWISE, AN ERROR STATUS IS RETURNED. 
0 , 478 : INPUTS: 
0 4 480 : R1/R2_= DESCRIPTOR OF KEYWORD TO LOOK U 
04 481: R6 = 0 IF QUALIFIER KEYWORD, M_KEYWD IF REGULAR KEYWORD 
0204 48¢ ; RB = ADDRESS OF LIST OF DESCRIPTOR BLOCKS 
0 04 43 ; R10 = ADDRESS OF COMMAND WORK AREA 
§ 04 485 : OUTPUTS: 
0204 on6 3 
0204 487: R1/R2 = DESCRIPTOR OF KEYWORD (NEEDED BY DCLSPARSE -VALUE) 
0206 488: R6 = NEGATION FLAG = LBS, IF KEYWORD NEGATED; LBC, IF N 
0206 489: R7 = QUALIFIER OR KEYWORD NUMBER (IF SUCCESSFUL) 
0204 490: RB = ADDRESS OF ENTITY DESCRIPTOR BLOCK 
0204 491; 
0204 492 ;- 
0204 49 
0204 494 DCLSFIND_KEYWORD: 
0204 495 KSSUME PTR_V V NEGATE EQ 20 : 
O23— BF BB 0204 496 PUSHR #*MZRT,R2,R3,R4,R5,R9> TSAVE REGISTERS 
0208 497 
0208 498; 
0 08 499 ; IF KEYWORD LIST, THEN SKIP PAST TYPE BLOCK. 
03 02 a8 91 0208 501° CMPB ENT. B_TYPE(R8) MBLOCK_K_TYPE § ;TYPE BLOCK? 
06 12 020C 208 NE é THEN SKIP 
DE AA Ci O20E 50 ADDL3 WRK_L_TAB_VEC(R10),- :GEf ADDR OF FIRST ENT BLOCK 
58 08 A8 et) 504 TYPE_C_ KEYWORDS (R85 RB : 
0214 505 
0214 506: 
0 14 307 : SAVE ADDRESS OF LIST OF DESCRIPTOR BLOCKS. 
59 58 00 § 14 266 S$: MOVL _RB,RO :SAVE LIST ADDRESS 
arf 
6 7 1g t INITIALIZE SEARCH PARAMETERS. 
57 b4 17 514 jos: CLRL = aR? : CLEAR QUALIFIER NUMBER 
a 19 i CLRO = = (SP) :SET NULL AS QUALIFIER FOUND 
18 1 : 
1B 18 : IF QUALIFIER THEN ONLY CHECK FIRST FOUR CHARACTERS OF KEYWORD. 
18 be ; ELSE CHECK THE WHOLE THING. 
5( 1 00 18 i’ MOVL R1,A :SAVE ORIGINAL TOKEN SIZE 
08 56 «(01 sé 1 j BBS BV "KEVUD,R6,308 SARE WE LOOKING FOR A KEYWORD? 
51 04~—CON CMPL 6 #47R SKEY WORD LESS THAN 5S CHARACTERS? 
03 18 4 BGEG © 306 F G 
51 04 OD 5 MOVL #4,R1 ?SET TO ONLY COMPARE 4 CHARACTERS 


2 
6 


) 


ri 


51 


J 4 
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FIND KEYWORD 


0 
0 
0 
0 
0 
0 
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0 
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i] 
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: GET NEXT QUALIFIER IN LIST 


$0$: CVTWLOENT.W NAME (RB) , RO 

MOVAB (RBJCROJ_R 

MOVAB 1eRBTEROS. 20 

Ova =—s_- R1,R3 
; COMPARE THE QUALIFIER WITH THE INPUT 
bos: CMPB#*A/ /, (RO) 

BEQL 

ee (RO) +, (R4)+ 

SOBGTR gs 608 


: WHAT KIND OF MATCH DO WE HAVE? 


CMPB 
Q 


; CHECK FOR A 


iss: TSTL 
BEQL 
PTSL 
67$: mova 


: CHECK NEXT 
70$: INCL 


AP, (RS) 
65§ 


MBIGUITY AND SAVE MATCH. 
4 (SP) 
7$ 
#M_AMBIG,R6 
R7> (SP) 
QUALIFIER IN LIST. 
R7 
ENT_L_NEXT(R8) .R8 
75$~ 


WRK_L_TAB_VEC(R10) ,R8 
308 


ALL QUALIFERS HAVE BEEN CHECK WITHOUT 


+58: STATU 
BBSC 
MOVQ 
BNEQ 


XORL 
suas 


S ABKEYW 
#V_AMBIG,R6,85$ 
(SP)+,R7 


“n NEGO" R6 


+a 


28: 


242: 


19:47 AX/VMS Macro V04-00 Page 
1 (CDOCL.SRCIPARSENT.MAR; 1 


:GET OFFSET TO ASCIC QUALIFIER NAME 
FIND ADDRESS OF QUALIFIER KEY LENGTH 
FIND ADDRESS OF QUALIFIER KEY TEXT 
COPY QUALIFIER STRING DESCRIPTOR 


ALIFIER TEXT? 


U 
Ss 
THE a WERE LOOKIN FOR? 
F a ty 

R OT CHECK 


me 


1s TABLE QUALIFIER SAME LENGTH 
[YES, THEN WE HAVE A UNIQUE MATCH 
TRESTORE STACK, BRANCH TO EXIT 


sFIND MATCH BEFORE? 
F_ NOT AMBIGU _ 
ISET AMBIGUOUS BIT 
;SAVE MATCHED QUALIFIER VALUES 


ER 
a -_ TOUALIFIER DESCRIPTOR 


‘ EN 
LATE ADDRESS 
NEXT QUALIFIER 


AMBIGUITY, NOW SEE IF ANY MATCHED. 


A ts Cae + ines 
RESTORE gg QUALIFER PARAMETERS 
:BR IF ONE WAS FOUND 


t QUALIFIER DESCRIPTOR TABLE EXHAUSTED - TRY NEGATION 


: COMPLEMENT NEGATION a 
a ants: CHARACTER COUN 
F LEQ NO MATCH POSS BLE 


K 4 
PARSENT = PARSE PARAMETERS AND QUALIFIERS 16-SEP-1984 90:19:27 AX/VMS Macro v04-00 Page 14 
v04- FIND XEYWORD 4=SEP-1984 23:42: DCL. SRCJPARSENT.MAR; 1 (6) 
58 659 «0 3 3 MOVL R9,RB ;RESTORE ADDRESS OF DESCR IPTOR LIST 
82 4F4E BF 8} 4 4 CMPW 3s #*A/NO/, (R2)+ KEYWORD START WITH 'NO'? 
A 8 7 BEQL 108 TIF EQL YES 
D 
p gi SET STATUS, CLEAN UP, AND RETURN 
D 0 bos: STATUS IVQU ZASSUME INVALID QUALIFIER 
15 56 01 €1 94 1 a veiw. R6,90$ ‘BRANCH IF QUALIFIER PROCESSING 
98 3 STATUS IVREYW SET INVALID KEYWORD STATUS 
oc 11 Hi 33 BRB 90$ SEXIT WITH ERROR STATUS 
6 Al 95 83S: STATUS NORMAL :SET SUCCESS STATUS 
03 «11 0 Ag 9 BRB 90$ ‘EXIT WITH ERROR STATUS 
57 8& 7D O2AA 558 8s $: MOVQ (SP)+,R7 ;RESTORE MATCHED QUALIFIER PARAMETERS 
57 06 O2AD 599 90S: INCL  =—R? “ADJUST TO ACTUAL KEYWORD NUMBER 
O23 BF BA Dear 600 POPR #*M<R1,R2,R3,R4,R5,R9> ;RESTORE REGIST eR S 
05 0283 601 RSB ‘RETURN FROM SUBROUTINE 


L 4 
PARSENT = PARSE PARAMETERS AND QUALIFIERS 16-SEP-1984 00:10:27 VAX/VMS Macro v04-00 Page 
y0e S800 CHECK FOR VALUES pases 7 90: 18:44 YOCL SRCIPARSENT -MARS 1 9 
+ g ; ‘ ~SBTTL CHECK FOP VALUES 
Bs 6 5 ; DCLSCHECK_VALUES = CHECK FOR VALUES AND THEN PROCESS THEM 
B46 5 ; THIS ROUTINE IS CALLED TO DETERMINE IF A VALUE OR LIST OF VALUES IS 
B4 608 ; ASSOCIATED WITH THE LAST QUALIFIER OR PARAMETER PARSED, TO DETERMINE 
B4 609 : THE SYNTACTIC LEGALITY OF THE EXISTENCE OF VALUES, AND TO CALL 
+ ei9 ; DCLSPARSE_VALUE TO PARSE EACH VALUE FOUND. 
BA bi¢ + INPUTS: 
B46 614: = CLASSIFICATION OF VALUE (PTR_K_QUALVALU OR PTR_K K_PARAMETR) 
B4 615; Re = NEGATION FLAG - Hyg WEGATED; LeC, IF-N 
0 B4 616 ; = ADDRESS OF ENTITY DéscRiPto 
B4 617: R10 = ADDRESS OF COMMAND W AREA 
02B4 618; 
0 B4 619 : IMPLICIT INPUTS: 
0284 est : WRK_L_EXPANDPTR IS POSITIONED AT THE TERMINATOR OF THE PREVIOUS 
0284 6 é ; QUALIFIER OR PARAMETER. 
gsee 623 ; 
bSu¢ e : 3; OUTPUTS: 
0284 626 : RO INDICATES THE SYNTACTIC CORRECTNESS OR INCORRECTNESS OF 
0284 627: WHAT WAS FOUND. 
02B4 628; 
02B4 629 ;:- 
0284 630 
02B4 631 DCLSCHECK_VALUES: 
53 OD 0284 O36 POSHL R3 SAVE VALUE TYPE 
0286 6 
0286 o3¢ : 
0 +4 oe? : CHECK IF VALUE HAS BEEN SPECIFIED 
7E D4 0286 637 CLRL = = (SP) SSUME NO BLAN 
0288 638 SETBIT PRC eV V_IND,PRC_W_ FLAGS(RIAD DISABLE a INDIRECT 10N 
FD41" 30 O2BC 639 BSBW CLES ETCHAR sPEEK AT NEXT CHAR IN INPUT BUFFER 
20 50 91 O2BF 640 CMPB Roce y Br ANK? 
05 12 02¢2 641 BNEQ 5$ [IF NEQ NO 
6f 06 6 C4 b4¢ INCL (SP) ;MARK BLANK SEEN 
FD37" 30 0206 64 BSBW OCLSSETNBLK EEK AT NEXT NON-BLANK 
0 C9 644 5S: CLRBIT PRC_V_IND.PRC_W_ Fiags«rtin. EE ABLE @ INDIRECTION 
3 50 91 CD 645 CMPBs«aRO,, P*RK'= :VALUE SPECIFIED? 
1 13 02D 646 BEQL 10 sIF EQL YES 
3a (550 s—s«9s«D2 SB CMPB RO wats! : VALUE SPECIFIED? 
1c 13 0205 648 BEL ~=s«d108 VES 
BE 5 0207 649 TSTL (SP) iWAS ; tA K SEEN? 
06 1 D9 650 BEQL «6s 7$ SBRANCH IF NNO BLANK SEEN 
50 20 30 DB «651 MOVB 3 #*at RESTORE THE BLANK 
FDIF* 3 DE 63¢ BSBW OCL SBACKUPCHAR : 
E1 654; 
3 639 : IS VALUE REQUIRED? 
E1 g36 ASSUME V VANEGAT EQ 0 
OC 56 «€8 O21 658 7S: BLBS ‘NO VALUE IS OK IF ENTITY WAS NEGATED 
E4 659 STATUS VACREG TASSUME VALUE REQUIRED ERROR 
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= PARSE PARAMETERS AND QUALIFIERS 


16-SEP 4 7 VAX/VMS Macro v04-00 Page 
CHECK FOR VALUES aT a te cytes Pa St et ee 9 
EO O2EB 660 BBS #ENT_V_VALREQ,- y1F SET, REPORT VALUE IS REQUIRED 
E 61 ENT Q_FLAGS(R8) ,95$ : = 
31 F 66¢ 9$: BRW SOTHERWISE, ITS OK 
FS 664 
F 665 : IS VALUE ALLOWED? 
5 OoF ge8 10s: TSTL (SP) :RESTORE THE STACK 
0 O2F 668 BSBW  DCLSMOVCHAR SMOVE EQUAL SIGN 
0 OoF8 66 SBW DCLSGENTERM SET TERENCE TERMINATOR 
FB 670 STATUS NOVALU SASSUME NO VALUE ALLOWED 
e1 0 67 BC WENT V_VAL,= :1F CLR, VALUE NOT ALLOWED 
7 NT_@ FLAGS(R8) ,95$ 
91 07 67 cMPB Ss WENNT_R_QUALIFIER,- TARE WE PARSING A QUALIFIER VALUE? 
9 674 1_B_TYPE(R8) : 
12 0308 675 NEQ $ ‘NO, THEN SKIP 
0 0D 676 ASSUME V_NEGAT EQ 0 ; 
€8 300 ere LBS R6,95$ YES, THEN ERROR IF QUALIFIER WAS NEGATED 
310 679; 
+ CHECK VALUE LIST AND PROCESS VALUE(S) 
1p 6 0 CHECK FOR — LIST 
ce 0319 68¢ 15$: MNEGL #2,R5 :SET VALUE STATE VARIABLE 
3136 BSBW DCLSSETNBLK [PEEK AT FIRST NONBL ANK AFTER (=) 
31 0316 684 CMPBseRO, #*A'(' i START OF VALUE L 
13 O31 685 BEQL 4-208 :B YES 
30 0318 686 BSBW $DCLSBACKUPMOVE RESTORE EQUAL $1GN DELIMITER 
11 O31 68 BRB 30$ tAND PARSE THE esis LE VALUE 
D6 0320 688 208: INCL RS SMARK LIST Isp RESENT 
b0 3 : 689 30$:  MOVL (SP),R3 Ser. OKEN 
0 3 690 BSBW DCLSPARSE_VALUE ARSE VALUE "SER ING 
9 8 691 BLBC ~=—_-« RO, 95$ BRA NCH IF ERROR DETECTED 
D6 03 B 63¢ INCL = RS [COUNT UP THE VALUES SEEN 
19 D 69 BLSS 908 :BR IF SINGLE VALUE QUALIFIER 
D1 O32F 694 CMPL = RO, #3 ;SHOULD PAREN CHECK BE IGNORED? 
13 2 695 BEaL §«6=s«90$ THE BRANCH 
30 334 69 BSBW DCLSSETCHAR {PEEK AT NEXT CHARACTER 
31 7 69 CMPBséRO, #*A',* STERMINATER SAY WAORE VALUES COMING? 
13 A 69 BEQL tI1F MORE COMING, PROCESS THEM 
91 C 69 CMPB = saRO, #*A)* 3END OF VALUE List2 
1 F 700 BNEQ 808 ; “ITS AN ERR 
41 701 BSBW DCLSMOVCHAR [COPY RIGHT PARENTHESIS DELIMITE 
0344 7 : BSBW =: OCLS TESTBLANK STHROW AWAY INSIGNIFICANT TRAILING BLANKSK 
0 7 £0 BSBW DCLSGENTERM [SET ACTUAL TERMINATOR INSTEAD OF RPAREN 
A 704 :SINCE END OF LIST CAN BE DEDUCED BY 
A 705 SNON-QUALVALU TOKEN; AND SINCE BLANK 
u 6 [TERMINATOR MARKS A PARAMETER NEXT. 
708 ; 
, $ : DID WE GET MORE THAN ONE VALUE? ARE VALUE LISTS ALLOWED? 
ay TSTL = RS :DID WE GET MORE THAN ONE VALUE? 
fle BEQL «©-«908 :BR IF NO (PARENS WERE NOP) 
71 STATUS ONE VAL ASSUME ONLY ONE VALUE ALLOWED 
714 BBC LIST,=- ZERROR IF NO LISTS ALLOWED 
715 1.0 VFLAGS (RB) , 95$ 
716 BRB CONTINUE 


( 
| 


4 
PARSENT = PARSE PARAMETERS AND QUALIFIERS” 16=SEP=1984 00:10:27 YAX/VMS Macro V04-00 Page 17 
v04= CHECK FOR VALUES oSEb=1984 29:45:17 EDC SRCIPARSENT <MAR: 1 ” in| 
tH 
; ae i. NO CLOSING PAREN SYNTAX ERROR | 
FCAT’ 30 035C 791 8 BSBW — DCLSMOVTOKN :GET DELIMITER AND FOLLOWING TOKEN | 
Ff toa STATUS NOBAREN :SET_ INVALID SYNTAX 
07 11 036 ZEXIT WITH STATU 
os 138 ; 
68 0e6 ; SINGLE VALUE QUALIFIER 
68 758 Sos: STATUS NORMAL ;SET SUCCESSFUL COMPLETION | 
53 EDO O56 9 $58: R3 ZRESTORE TOKEN TYPE | 
05 0372 730 ;RETURN FROM SUBROUTINE | 


. 
8 Ss 

a NT = PARSE PARAMETERS AND QUALIFIERS 16-SEP-1984 7? VAX/VMS Macro v04-00 Page 18 p 

002000 PARSE VALUE STRING aT) a Ee ra ST ey ~ a v 


«SBTTL PARSE VALUE STRING 
; DCLSPARSE VALUE = PARSE A SINGLE VALUE IN A VALUE LIST 


THIS ROUTINE IS CALLED TO SCAN A sinete Dates AND STORE 
THE TOKEN DESCRIPTOR WHICH DESCRIBES IT 


INPUTS: 
RS : = c ASSTEICATION OF VALUE (PTR_K QUALVALU OR PTR_K_PARAMETR) 
bolt FIRST VALUE IN A PARE NTHESIZE LIST 
DRESS OF ENTITY DESCRIPTOR 
4 0 s ANDO A ESS OF COMMAND WORK AREAS 
CHARACTER POINTER POINTS TO DELIMITER JUST BEFORE THE VALUE STRING 
OUTPUTS: 
RO = STATUS 


INSIGNIFICANT BLANKS ARE THROWN AWAY FOLLOWING THE VALUE. 
CHARACTER POINTER POINTS TO DELIMITER JUST AFTER THE VALUE STRING. 


ONE (OR TWO) TOKEN DESCRIPTORS ARE OUTPUT VEPENDING ON WHETHER 
THE SYNTAX WAS ‘VALUE’ OR ‘KEYWORD=VALUE'. 


OOCCOCCOCOOCOCOCOCOOOCOOCOOOOOOCoOOo 
WWWAIWNANWIAANW NAAN NIAAA AWWW 


| = 


0 
037 ; 
037 760 : VALID TERMINATOR LIST FOR VALUE STRINGS 
00 29 28 2F 2C 2B 20 0373 16 Trg LASCIL \ +,/0\<0> ; SPACE,PLUS,COMMA,SLASH,PARENS AND EOL 
7A 764 
7A 765 DCLSPARSE_VALUE: 
O1F8 8F BB 037A 766 POSHR  #°M<R3,R4,R5,R6,R7,RB> ;SAVE REGISTERS 
C4 AA 96 O37E 76 INCB WRK _B_VALLEV(R10) : INCREASE THE VALUE LEVEL 
50 15 a8 9A 0381 768 MOVZBL EN NT“B-VALTYPE(R8),RO | :GET VALUE TYPE 
14° 50 91 0385 769 CMPB O,FERT_K_FILE iF SPECS 
34 13 «0 88 770 BEQL eg Z1F $0, PROCESS. FILESPEC 
0 50. «91 0 A 771 CMPB =a RO, WENT_K_INFILE S INPUT FIL 
ef 13 038D 17 BEQL SIF SO PROCESS FILESPEC 
02 50 91 O38F 77 CMPB ss RO, WENT_K_OUTFILE [OUTPUT F 
A 13 0392 77% BEQL «=sSS$ TIF $0, |RCESS FILESPEC 
0c Q 91 0394 775 CMPB =. RO, #ENT_K_NODE SNODE N 
13 0397 106 BEQL 4=sOS$ TIF $0 "PROCESS AS FILESPEC 
0 50 91 0399 77 CMPB «sa RO, MENT_K_DEVICE SDEVICE N 
20 13 039¢ 178 BEQL ‘S$ t1F SO PROFESS AS FILESPEC 
oe 50 91 Hi 77 CMPB  =s- RO, WENT_K_DIR [DIRECTORY SPEC? 
18 13 O3A1 780 BEQL «6=sS$ TIF $0, PROCESS AS FILESPEC 
OF 50 91 O3A3 781 CMPB = s RO, #ENT_K_UIC [UIC SPEC? 
16 13 Ab 7 : BEQL 6‘ 5$ TIF $0, PROCESS AS FILESPEC 
10 50 91 O38 7 CMPB «= RO, #ENT_K_RESTOFLINE  ;REST OF LINE AS VALUE STRING? 
1 13 O03AB «784 BEQL 108 it $0, PROCESS IT 
15 50 91 O3AD 785 CMPB RO,#ENT_K_EXPRESSION  :SEXPRESSION? 
1 13 0380 7 6 BEQL =s«1 26 iit $0, PROCESS IT 
19 50 91 0382 7 CMPB sR, @ENT_K_ACL ACL? 
19 13 788 REQL «=s«41:38 [IF SO, PROCESS IT 
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ETERS AND QUALIFIERS 16- SEP-1984 4 90: 
STRING SEP=1984 
9 CMPB sR, WENT_K_PARENVALUE 

0 BEQL 15§ 
£3 BRB 17$ 
798 5$ BSBW DCL SPROCFILE 

94 BRW 

795 10$ BSBW SREST_OF _LINE 

136 BRW 

797 12$ BSBW DCL SEXPRESSION 

198 BRW 

799 13$:  BSBW DCL SACL 
0 BRW 90$ 
1 15$:  BSBW  DCLSPAREN_VALUE 
¢ BRW 90$ 

0 

04; 

05 

06 : 

07 17s: BSBW DCLSMOVCHAR 

808 BSBW DCLSSETNBLK 

809 SBW = séDCL SMA 

810 208: SBW D¢eLsctBTo OKEN 

ae TSTL NT L_USER_TYPE(R8) 

1 BEQL 0s~ 
H+ CMPB RO,#*A'=' 
14 BEQL 50 

815 CMPB =saRO, #*A:* 

816 BEQL 50 

817 30S: LOCC  RO,S*#TRME-TRMB, TRMB 

818 BNEQ 

819 BSBW DCLSMOVCHAR 

A 50$:  BSBW OCLSMARKEDTOKEN 

: BEQL 80$ 

‘ CMPB = ENT_B_VALTYPE(R8) ,- 
4 #ENT_R_QUOTEDSTRING 

839 BEQL 

sF BSBW $DCLSCOMPRESS 
8; 

8 ; > PEFORM APPROPRIATE SYNTAX CHECKING OR 
1 51s: mov NT_L_USER_TYPE(R8) ,RO 
MOVZBL ENT_B_VALTYPE(R8),RO 
4 CMPB) ss RO, WERT _K_NUMBER 
5 BEQL 

i CHP RO, #ENT_K_DATETIME 
8 CMPB =—s- RO, MENT_K_DELTATIME 
3 Beal 46-«d§9$ 

49 BRB 65$ 

46 80$: STATUS VALREQ 

43 BRB 90$ 

45 53$:  MOVL (SP),R3 


19: ef AX/VMS Macro V04-00 Page 
74 DCL.SRCJPARSENT .MAR; 1 


; SPAREN_ VALUE? 
:IF $0, PROCESS IT 
:IF NOT, BRANCH 


eee ore FILE SPEC 
; PARSE a ceeente LINE VALUE 


;EMIT A DESCRIPTOR 
; PARSE with VALUE 


“~_ 


SKIP TO END 


; GET UNTYPED VALUE TOKEN (STOP AT ‘'="' OR "':"* IF KEYWORDS ARE ALLOWED) 


; COPY ‘Tastee ta aiera” EXPANSION BUFFER 


: E STRING 
[COPY TOKEN INTO EXPANSION BUFFER 
DOES VALUE TAKE KEYWO 

SIF NOT, IGNOR E EMBEDDED te; ' 
:VALUE § SePANAtT 


YES 
: CHECK IF END OF KEY AND START OF VALUE 
[CHECK FOR VALUE STRING TERMINATOR 
[BR IF TERMINATOR FOUND 
SCOPY CHARACTER WHICH STOPPED GETOKEN 
“KEEP GETTING TOKENS UNTIL END OF VALUE 
'GET DESCRIPTOR R OF VALUE STRING 
SERROR IF NO VALUE 
; SQUOTED_ STRINGS 
TIF SO, THEN SKIP COMPRESSION 
[COMPRESS QUOTED STRING 
CONVERSION ON THE VALUE JUST FETCHED. 
ARE KEYWORDS ALLOWED? 
:BR IF SO 


ANCH 
3GET VALUE TYPE 
; NUMBER? 


;BRANCH IF SO 


sSET_ MISSING VALUE STATUS 
:EXIT WITH ERROR STATUS 


GET CLASSIFICATION OF VALUE TOKEN 


oe. 0 5 
“ RS AND QUALIFIERS IGoSEP=1984 00:10:27 YAX/VINS Macro vO4=00 Page 20 
an ss ceing m0 0m SUH UAT EMA, a 
ROCESS_KEYWORD  ; PROCESS KEYWORD 
SH BRE Sey puggoesscenom sass sen 
ig 11 O43F Ba Beas? ?CLEAN UP AND RETURN 
195 a2) e9 Ses: Rebuy beCOmUneeR PROCESS $NUMBER 
oi'23 £9 beee | BSO BiBC R00, 908 ‘BRANCH IF ERROR 
06 11 0447 851 ag | een ZGENERATE DESCRIPTOR 
449 852598:  BSBW DCL 
19°80 £9 Gece | BSS Gok, Bree Rgt Se ‘BRANCH IF ERROR 
tee Bes 
AGF 36 : GENERATE VALUE DESCRIPTOR 
; CLEAR ENTITY NUMBER 
s BREE ES ge tae EE RET Roe vue rxen ca 
56 D4 (0454 «B60 CLRL ORS SCLEAR THE FLAGS 
so 658) «(DO O04s6 OB MOVL —«RBLRO ESET ADDRESS OF ENTITY BLOCK 
ae ea et bs MOVG = R1_R? ‘SET LENGTH AND OFFSET OF VALUE 
FBAIY 30 948¢ bes BSBW  DCLSGENDESCR ‘GENERATE RESULT PARSE DESCRIPTOR 
45F 865; 
O63 866 CLEAN UP AND RETURN 
: 40S: THROW AWAY INSIGNIFICANT BLANKS 
FBon' 30 odes aes 08: Bee DEL SGEATERA™ AND SET TERMINATOR TA UASt toceN 
so 'Ot BD bees B50 MOVL -#1RO 'SET SUCCESSFUL 
C4 AA 97 0468 871 908:  DECB. —- WRK_B_VALLEV(R10) ‘DECREASE THE VALUE LEVEL 
O1F8 BF BA 046B Bre POPR STRZRS ALORS ROR7LRO>  cRESTORE REGIS Tene 
05 O46F 87 RSB 


— oe 
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PARSENT = PARSE PARAMETERS AND QUALIFIERS 16=SEP=1984 00:10:27 VAX/VMS Macro v04-00 Page 21 t 
y0esb00 PROCESS KEYWO at ett 90:19:44 LOCL SRCIPARSENT MAR; 1 - \ 
42 25 .SBTTL PROCESS KEYWORD 
42 2 : DCLSPROCESS_KEYWORD = PROCESS KEYWORD 
47 8 THIS ROUTINE IS CALLED TO PROCESS A KEYWORD AND TO EMIT A DESCRIPTOR 
4? 0; : TO THE RESULT PARSE TABLE. 
4? é ? INPUTS: 
47 4: RO = ADDRESS OF KEYWORD LIST HEADER 
047 5; R1/R2 = KEYWORD DESCRIPTOR 
47 : ; RS = ENTITY TYPE 
47 ; RB = ADDRESS OF ENTITY BLOCK 
0470 88 : R10 = BASE ADDRESS OF COMMAND WORK AREA. 
0470 30 : OUTPUTS: 
0470 3 : RO = STATUS 
$670 Bok 
0470 895 DCLSPROCESS_KEYWORD: :PROCESS KEYWORD 
bc70 Boe 
0470 898 t VALIDATE THE KEYWORD 
58 DE AA SO C1 0470 300 , ADDLS roa PAB VEC(RIOD, RB :GET ADDRESS OF KEYWORD LIST 
0475 908 ASSUME E¥aD. a 1 : 
56 02 00 0475 9 MOVL yf R6 sSPECIFY THAT PULL obgnetH BE VALIDAT 
FD89 §=30 «(0478 =8=— 904 BSBW DCCSE IND: KEYWORD :VALIDATE THE KEYW 
37 50 «£9 0478 305 BLBC —-RO, 908 TEXIT IF INVALID 
O47 307 : CHECK NEGATION 
047E 909 ° ASSUME V_NEGAT EQ 0 : 
0C 56 £9 O47E 910 BLB SIF KEYWORD NOT NEGATED, THEN SKIP 
0481 911 STATUS NOTNEG SASSUME KEYWORD NOT NEGATABLE 
01 €1 0488 gig BB WENT _V TEXIT IF NEGATED 
28 04 AB 048A 91 ENT_@ VFLAGS<RB), 90$ ; 
bca> ONS 
480 16 t PROCESS CHANGE LIST - IF ANY 
OC AB 05 48D a8 ios: TstL ENT _L_SYNTAX(R8) i ALTERNATE COMMAND SYNTAX SPECIFIED? 
0B 13 0490 91 BEQL 0$ RANCH IF NOT 
51 vp 492 920 PUSHL 1 TSAVE R 
O36! 0 0494 921 BSBW = DCLSCHANGE_SYNTAX [CHANGE COMMAND SYNTAX 
1 8ED0 0497 9 é POPL RI TRESTORE R1 
049A 9 ASSUME a v SYNTAX EQ 22 ; 
9A 924 ASSUME V_SYNTAX : 
56 04 CB O49A 925 BISL in SYNTAKe Rb 7SET SYNTAX CHANGE BIT 
ae 
490 3 8 : GENERATE VALUE (KEYWORD) DESCRIPTOR 
. = 49 O$: MOVL  R7,R4 :GET KEYWORD NUMBER 
3% 25 8 4A0 3 9 2 MOVL  =—R3.RS [GET CLASSIFICATION OF VALUE TOKEN 


PARSENT = PARSE PARAMETERS AND QUALIFIERS 16-SEP-1984 :10:27 VAX/VMS Macro Vv04-00 Page 2 
042000 PROCESS KEYWORD att 90:18:47 Yoel. SRCIJPARSENT MAR; 1 ° 28) 
7 7 7D O44 3 mMOva R7,-(SP) SAVE KEYWORD NUM AND ADOR OF ENTITY 
é 8 b0 4A MOVL RO-RY SET AD DORESS OF ENTITY BL 
1 3 4A 4 mova R1,R 3SET LENGTH AND OFFSET OF VALUE 
FB51° ; GAC 5 BSBW DEL SGENDESCR ; GENERATE "Res ULT PARSE DESCR IPTOR 
57 «BE D a! 4 § MOVQ (SP)+,R RESTORE SAVED REGISTERS 
48 938 ; 
rt $39 3 DO WE HAVE A KEYWORD VALUE LEFT TO PROCESS? 
FOFF 30 048 941 ° BSBW DCLSCHECK_VALUES MAKE INDIRECTLY RECURSIVE CALL 
05 0 942 90S: PSB ;RETURN WITH STATUS 


a 


a — — 
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vibe 34 = PARSE PARAMETERS AND QUALIFIERS 16-SEP-1984 90: 19:97 AX/VMS Macro V04-00 Page $3 
v04- PROCESS FILE SPECIFICATION 46-SEP-1984 :42:11 DCL.SRCJPARSENT.MAR; 1 (10) 
286 ote s -SBTTL PROCESS FILE SPECIFICATION 
ret 808 ; DCLSPROCFILE = PROCESS FILE SPECIFICATION. 
4B6 338 3; THIS ROUTINE IS CALLED TO SCAN A FILE SPECIFICATION FOR SYNTACTIC CORRECT- 
ret rh 3; NESS AND TO EMIT A FILE DESCRIPTOR TO THE RESULT PARSE TABLE. 
rr 22) 3 INPUTS: 
4B6 33 $ R3 = VALUE CONTEXT (PTR_K_QUALVALU OR PTR_K_PARAMETR) FOR DESCRIPTOR 
0486 954; RB = ADDRESS OF ENTITY BLOCK 
ret 922 $ R10 = BASE ADDRESS OF COMMAND WORK AREA. 
0486 929 ; OUTPUTS: 
0486 958; 
4B6 959 ;: RO = STATUS 
rt 44 $ R1/R2 = DESCRIPTOR OF FILE SPE: IFICATION STRING, IF SUCCESSFUL 
0486 306 
Reo oer DCLSPROCFILE:: sPROCESS FILE SPECIFICATION 
Reog 4 3; SET STATE TO START OF FILE SPECIFICATION. 
O1F8 8F BB 0486 967 PUSHR #*M<R3.R4,R5,R6,R7,R8> ;SAVE REGISTERS 
FB43' 0 O4BA 968 BSBW DCLSMOVCHAR sMOVE TERMINATOR CHARACTER 
FB40' 04BD 969 BSBW DCLSMARK sMARK CURRENT POSITION IN BUFFER 
04C0 970 DCLSPROCFILE1: 
FB3D" 30 Beee 971 BSBW DCLS$GE TOKEN 3;GET NEXT TOKEN 
13 12 04C¢ 38 BNEQ 5$ s IF NEQ THEN FOUND 
0405 «97 
0405 974; 
04C5 975 ; NO TOKEN OBTAINED - CHECK FOR NULL NODE. 
0405 976; 
0405 977; *: :DEVICE...° | 
0465 «978; 
50 3A 0S 91S s« O45 979 CMPB #*A/:/,R0 sFIRST COLON PRESENT? 
; 12 04C8 980 BNEQ 208 :1F NEQ NO 
FB33" 3 O4CA 981 BSBW DCLSMOVCHAR sMOVE TERMINATOR TO COMMAND BUFFER 
FB30° 0 04CD oa6 BSBW DCLSSETCHAR ;PEEK AT NEXT CHARACTER IN INPUT BUFFER 
50 3A Ci? B60 98 CMPB #*A/:/,RO0 ;SECOND COLON PRESENT? 
13 13° 040 984 BEQL 7$ s1F YES THEN LOOK FOR MORE NODES,DEVICES 
OOAF 31 04D 985 BRw 9508 :1F NO THEN ERROR 
Ocb8 (BP 
rh $88 3; TOKEN OBTAINED - FORM MUST BE: 
04D 989 ; 
4D 990 ; *NODE::° OR 
408 991; "DEVICE:" OR 
408 992; "FILENAME.’ OR, 
4D 993 ;: "FILENAME;* OR, 
40 994; *FILENAME-" OR, 
res 444 ; "FILENAME °. 
50 A 91 4D 399 S$: CMPB #*A/:/,RO0 sNODE OR DEVICE NAME? 
8 12 0408 99 BNEQ 60$ :1F NEQ NO 


400 99 
4DD 1000 ; 


a Se 
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PARSENT = PARSE PARAMETERS AND QUALIFIERS! 16-SEP- 7 VAX/VMS Macro v04-00 Page 24 
- PROCESS FILE SPECIFICATION 4-SEP- 138 9: 13: YOCL SRCIPARSENT MAR: 1 ° (46) 
400 1 ; NODE OR DEVICE NAME 
FB20' 0 400 1 2 ' BSBW DCLSMOVCHAR sMOVE TERMINATOR TO COMMAND BUFFER 
FB1D" ce 1004 BSBW = DCL $S SET CHAR PEEK T NEXT CHARACTER IN INPUT BUFFER 
50 3 1 04E3 1005 CMPB Os #*A/:/,R0 : ODE NAMED 
P29 AEs 1 é BNEQ 108 [IF NEQ NO 
FB15" 30 048 1007 7$: BSBW CL SMOVBTOKN ‘MOVE TERMINATOR AND GET BLANK TOKEN 
0? 13 O4eB 1 08 BEQL : $ TIF EQL N 
&9 «11 4ED 09 BRB $ [LOOP TO ALLOW ANOTHER NODE NAME 
FBOE’ 39 4EF 1011 10$:  BSBW  DCLSGTBTOKEN :GET NEXT BLANK TOKEN 
41 12 O4F2 1 1 BNEQ 60$ ‘IF NEQ TOKEN OBTAINED 
eB 
ar 1018 ? NO TOKEN OBTAINED - FORM MUST BE: 
4F 4 1019 : "COIRECTORY]’ OR, 
4F4 1018 | <DIRECTORY>" OR. 
Q4F4 1019 ; YPE* OR, 
O6r 4 10 0; ; IVERSION®” 
oe acre 19¢¢ 20s: ch oe OTe ves 
50 3C 91 O4FA 1024 CMPB ss #*A/</,RO ‘DIRECTORY? 
6 12 O4FD 1025 BNEQ 0$ [IF NEQ NO 
5¢ 02 A0 9E Oar 10 3 30$:  MOVAB 2(RO), SSAVE DIRECTORY TERMINATOR CHARACTER 
FAFA’ 30 0503 10 BSBW DcUSASVBTORN ‘MOVE TERMINATOR AND GET BLANK TOKEN 
50 2C 91 0506 1028 CMPB ss #*A/,/,RO SOLD STYLE DIRECTORY? 
11 12 0509 1029 BNEQ 40% SIF NEQ NO 
B88 10 
0508 103¢ : OLD STYLE DIRECTORY - FORM IS: 
0508 i 4: "CGROUP MEMBER)". 
ane 
FAF2" 30 0508 1037 BSBW DCLSMOVBTOKN ;MOVE TERMINATOR AND set BLANK TOKEN 
sc. S08 0505 1038 CMPB —s- RO, AP TEXPECTED TERMINAT 
1D 13 0517 1039 Bea. =-—«SS0$ SBRANCH IF YES 
0513 1040 120$: STATUS DIRECT SRETURN INVALID DIRECTORY SYNTAX 
66 11 O5S1A 1041 BRB 900$ SAND EXIT WITH E 
Baie 4008 
3i¢ 44 ; NEW STYLE DIRECTORY - FORM IS: 
51¢ (1 46 : *<SUB.SUB...SUB>'. 
a1 1068 | 
Sc 65009 #8 40$:  CMPB  RO,AP sEXPECTED TERMINATOR? 
F 13 OSIF 1050 BEQL =s-« 50 [IF EQL YES 
50 ; 91 0521 1051 CMPB Os #*A/./,RO : SUBDIRECTORY 
13 0524 1 3 BEQL TIF EQL, TERMINATOR OK 
50 20 91 05 $ 105 CMPB Os #*A/=/,RO ;BACKUP "SYMBOL ? 
Eg 1 ; 1054 BNEQ [IF NEQ, INVALID SYN 
FADe" 3 B 55 45$ BSBM DCLSMOVBTOKN ;MOVE TERMINATOR AND hr BLANK TOKEN 
FACD' 30 05 6 1 3§ 50$ BSBW  DCLSMOVBTOKN ?MOVE TERMINATOR AND GET BLANK TOKEN 


ra 
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PROCESS FILE SPECIFICATION 4-SEP=1984 23:42:11 (COCL.SRCJPARSENT.MAR; 1 (10) 
1 : § BRB 20$ :CHECK FOR MORE DIRECTORIES 
1060 ; 
; 2 ; FILENAME, TYPE, OR VERSION - FORM MUST BE: 
535 1 86 : "FILENAME." OR, 
> 1064 : "FILENAME: * OR, 
1065 : "FILENAME-F ILENAME' OR, 
535 1 66 : "FILENAME * OR, 
535 (1067 : * TYPE’ OR, 
5 1 98 $ *; VERSION’. 
232 1888 | 

91 0535 1071 60S: CMPB#*A/=/,RO sCONTINUED FILENAME? 

if 538 1 fe BNEQ [IF NEQ NO 

30 053A 107 BSBW DCLSMOVBTOKN ‘MOVE TERMINATOR AND GET BLANK TOKEN 

11 0530 107% BRB 60$ [LOOK FOR MORE OF FILENAME 

91 O53F 1075 65$:  CMPB  #*A/./,R0 SFILE TYPE? 

1 542 107% BNEQ 70$ [IF NEQ NO 

30 0544 1077 67$:  BSBW  DCLSMOVBTOKN ‘MOVE TERMINATOR AND GET BLANK TOKEN 

31 0547 1078 CMPB ss #*A/=/,R0 [CONTINUED FILE TYPE? 

13 054A 1079 BEQL 67 SIF EQL YES 

91 054C 1080 CMPB Os #*A/./,RO SNEW VERSION FORMAT? 

13 054F 1081 BEQL 80% TIF EQL YES | 
0551 108¢ | 
0551 1083 ; 
0551 1084 : FILE VERSION - FORM MUST BE: | 
0551 1085 : 

0551 1086 ; "; VERSION’. 
0551 1087 : 
0551 1088 

91 0551 1089 70S: CMPB es #*A/;/,RO :FILE VERSION? | 

12 0554 1090 BNEQ 1 [IF NEQ NO 

30 0556 1091 80$:  ®BSBW  DCLSMOVBTOKN SMOVE TERMINATOR AND GET BLANK TOKEN | 

12 0599 1098 BNEQ SIF NON-NULL, GOT VERSION STRING 

91 0558 109 CMPB so #*A/=/,RO [NEGATIVE VERSION? 

12 055E 1094 BNEQ SIF NEQ NO 

30 36 1095 BSBW  DCLSMOVBTOKN [MOVE TERMINATOR AND GET BLANK TOKEN 
056 1097 : | 
056 1098 : FILE SPECIFICATION SCANNED = CHECK RESULT | 

30 §3e 1100 100$:  BSBw BCL SMARKEDTOKEN :GET DESCRIPTOR OF PARAMETER STRING | 

1 368 1 1 BEQL 9508 [IF NONE, EXIT WITH ERROR 

7D 0568 11 § MOVa ~—s R11, = (SP) :COPY DESCRIPTOR 

568 1104; CLRQ 0s = ( $P [CREATE ITEM LIST 
568 1105 : MOVL  #FSCNS_FILESPEC@16,-(SP) [SET ITEM CODE 
568 1106 : MOVL ‘SP [GET ADDRESS OF ITEM LIST 
568 1107: SFILESCAN.§ SRCSTR=12(RO),- [SCAN THE FILE SPEC 
568 11 8 : VALUELST=(RO) ; 
568 1109: ADDL #384, [POP THE ITEM LIST 
7D 0568 1110 MOVO (5P)+_R7 [POP THE FILESPEC DESCR 
36 Wi : BLBC ~—_« RO, 9568 SRETURN ERROR IF LBC 
D4 36¢ 1118 CLRL RG ZCLEAR ENTITY BLOCK ADDRESS 
D4 0570 1114 CLRL = RR *CLEAR FLAGS 


Baga ee eae oe Se patdnpiidempmiendbaisia 
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PARSENT = PARSE PARAMETERS AND QUALIFIERS" 16-SEP-1984 00:10:27 VAX/VMS Macro V04- 7 
y0e eb 00 PROCESS REST OF LINE VALUE grea T the Seic5st) LORL Mes Hace e NO4 OO Page fi) 
i 1 $ 2 .SBTTL PROCESS REST OF LINE VALUE 
3 1 g $ DCLSREST_OF_LINE = PROCESS REST OF LINE VALUE 
93 1180 : THIS ROUTINE IS PROCESS A SREST_OF_LINE VALUE AND PREPARE TO EMIT 
23 i 1 : DESCRIPTOR TO THE RESULT PARSE TABLE. nts apts a Shrep 
39 1 g ? INPUTS: 
593 1135 R3 = CLASSIFICATION OF VALUE (PTR_K_QUALVALU OR PTR_K_PARAMET 
593 11 $; ; RB = ADDRESS OF ENTITY B delle cgi ves 
39 1 : R10 = BASE ADDRESS OF COMMAND WORK AREA. 
033 1138 : : ouTpuTs: 
593 1141 R1/R2 = DESCRIPTOR OF S$REST_OF_LINE VA 
a3 1igp 2 EST_OF_LINE VALUE 
059 1144 DCLSREST_OF LINE: :PROCESS REST OF LINE 
0393 1146 : GET REST OF LINE. 
> BD 0898 1168 * BBS Ak V_USRMODE Tt SET THEN USER MODE PARSE 
04 FO AA 0597 1150 wRK_@ “FLAGS(R10) , 10$ : 
059A 1151 SETBIT PRC"V"IND,- [DISABLE @ INDIRECTION, SO THAT @ 
. 059A 1138 PRC"W af kAGS(RI1) SCAN BE PASSED IN THE VALU | 
FASF* 30 OS9E 1153 10S: BSBW DCLSMOvC ‘COPY TERMINATOR INTO EXPANSION BUFF 
FASC’ 30 O5A1 1154 BSBW SE SE TNOLK [SKIP LEADING BLANKS 
FASS" 30 O5A4 1155 BSBW = DCLSMARK [MARK START OF VALUE STRING 
FAS6" 30 0547 1156 20$: BSBW  DCLSMOVCHAR [COPY NEXT CHARACT 
is Bt TBE Hic APP hknt Bed nbd rans 
04 FO AA O5AE 1159 wRk_@ VPLAGS (RIO), 30$ 
0581 1160 CLRBIT PRC cov ny eee {RE-ENABLE @ INDIRECTION AGAIN 
FASB" 30 0585 1168 30$: BSBW DCLSRARKED TOKEN [GET DESCRIPTOR OF MARKED TOKEN 
51 D7 0588 116 DECL ‘SUBTRACT OUT EOL CHARACTER 
Sapa 1168 
o38A 1166 : GENERATE VALUE DESCRIPTOR 
54 D4 0SBA 1168" CLRL sR :CLEAR ENTITY NUMBER 
55 gE DO 058C 1169 MOVL  (SP)+,R5 [GET CLASSIFICATION OF VALUE TOKEN ( 
6 04 OSBF 1170 CLRL = R6 *CLEAR THE FLAGS | 
59 58 pO 05c1 1171 MOVL  R8,R9 iSeT ADDRESS OF ENTITY 
57 51 7D 05¢4 1178 MOVG = R1.R7 [SET LENGTH AND OFFSET OF VALUE 
FA36" 30 3C7 1173 BSBW DCLSGENDESCR ‘ CENERATE RESULT PARSE DESCRIPTOR 
SCA 1175; 
an 1128 ; CLEAN UP AND RETURN 
FA33° 30 SCA 1178 ; BSBW DCLSTESTBLANK : THROW AWAY INSIGNIFICANT BLANKS 
FASO" 5¢> (117 BSBW DCL SGEN TERM AND SET TERMINATOR IN LAST TOKEN 
50 0 B60 300 1180 MOVL &#3,R :SET SU SUCCESSFUL 


L 
PARSENT = PARSE PARAMETERS AND QUALIFIERS 16-SEP-1984 7 VAX/VMS Macro V04-00 Page 
v04=000 PROCESS S$NUMBER VALUE 4=SEP-1984 t 98: 13: # YOCL SRCTPARSENT “MAR: 1 . (3) 
i 1 3 .SBTTL PROCESS SNUMBER VALUE 
204 1 5 DCLSNUMBER = PROCESS SNUMBER VALUE 
304 11 $i ; THIS ROUTINE IS CALLED TO SCAN A $NUMBER VALUE FOR SYNTACTIC CORRECTNESS 
D4 11 g : : CONVERT THAT NUMBER TO A DECIMAL STRING, AND PREPARE TO EMIT A DESCRIPTOR 
3h 1 9 3 FOR THAT DECIMAL STRING TO THE RESULT PARSE TABLE. 
304 1191 ; INPUTS: 
504 1198 R1/R2 = DESCRIPTOR OF VALUE STRING 
$04 1194 ; RB = ADDRESS OF ENTITY 
204 1198 : R10 = BASE ADDRESS OF COMMAND WORK AREA. 
bape 1197 : OUTPUTS: 
Bt 188 Fo « stan 
0504 00 ; : RT /R2 ; DESCRIPTOR OF DECIMAL STRING, IF SUCCESSFUL 
0504 1302 ° 
05p4 1 88 DCLSNUMBER: :PROCESS SNUMBER 
51 DD 05D4 1204 PUSHL 1 TSAVE STRING LENGTH 
52 51 7D 0506 1205 MOVa = R1, R2 COPY DESCRIPTOR OF STRING 
51 01 DO 0509 1 06 MOVL #1.R1 iSET DECIMAL RADIX 
FA21" 30 05DC 120 BSBW DCLSCNVNOEDIT [CHECK THE NUMBER 
50 DS OSDF 1208 TSTL = RO [WAS STRING COMPLETELY PARSED? 
18 12 05E1 1209 BNEQ 808 ‘BRANCH IF 
50 8EDO O5SE3 1210 POPL RO [GET THE STRING LENGTH 
F486 CA 50 C2 O5E6 1211 SUBL § RO,WRK_L_EXPANDPTR(R10) :REMOVE IT FROM Ti EXPANSION BUFFER 
51 b OSEB 1 1 MOVL R1.RO~ [GET THE VALUE TO CONVERT 
FAOF* 30 OSEE 121 BSBW DCLSCBTA DEC i CONVERT THE BINARY VALUE 10 DECIMAL 
F486 CA «0551S COs«OSF1 1214 ADDL RI WRK _L ~EXPANDPTR(RIO) DATE THE EXPANSION BUFFER PTR 
O5F6 1215 STATUS NORMA ure NORMAL STATUS 
05 O56 16 RSB RETURN 
51 8EDO OSFE 1218 80$:  POPL RI :POP STRING LENGTH 
0601 1219 STATUS NUMBER ‘SET STATUS 
05 0608 1220 SB SRETU 


n 5 | 
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VALUE 74 ( 


PARSENT = PARSE PARAMETER 
v04=" PROCESS SDATETIME 4=SEP-1984 DCL. SRCJPARSENT.MAR; 1 
6 2 3. .SBTTL PROCESS SDATETIME VALUE 
6 4 bi :DCLSDATETIME = PROCESS SDATETIME VALUE 
4 9 1 $ : THIS ROUTINE 1s CALLED T0 SCAN A PSDATETIME VALUE FOR SYNTACTIC CORR ECTNESS, 
609 1227 : CONVERT THAT TIME TO AN ABSOLUT TIME, AND PREPARE TO EMIT A DESCRIPTOR FOR 
6 3 i g : THAT ABSOLUTE TIME STRING To. vie RESULT PARSE TABLE. 
6 3 6 : INPUTS: 
609 1 : : RO = ENT_K_DATETIME OR ENT_K_DELTATIME 
609 1233: 2 = DESCRIPTOR OF VALUE STRING 
609 1236: RB = ADDRESS OF ENTITY 
609 5: R10 = BASE ADDRESS OF COMMAND WORK AREA. 
609 1 $ : OUTPUTS: 
Beb3 1530 | RO = STATUS 
9609 i 49 ; RI/R2> ~ MDESCRIPTOR OF ABSOLL7& TIME STRING, IF SUCCESSFUL 
0609 1242 ° 
0609 1 rk DCLSDATETIME: ZPROCESS SDATETIME OR SDELTATIME 
$609 1568 ; 
9609 1 46 : ALLOCATE INPUT DESCRIPTOR, TIME QUADWORD, AND OUTPUT DESCRIPTOR. 
50 DD 0609 1948 ° PUSHL RO sSAVE TYPE CODE 
51 7D 0608 1249 MOVQ  R1,-(SP) TSAVE STRING DESCRIPTOR 
3 0 060€ 1250 MOVL P’R3 :GET ADDRESS OF THE DESCRIPTOR 
— 7C 0611 1251 CLRO = (SP) ; ALLOCATE A QUADWORD TIME BUFFER 
SE DO 0613 1 38 MOVL SP, — ITS A 
CA 9E 0616 125 MOVAB cake ¢ _BUFFER+WRK_C _CMDBUFSIZ (R105 in -FIND END OF BUFFER 
50 CO 0616 1254 ADDL RO, LENGTH OF STRING TO BE REMOVED 
CA C2 615 1255 SUBL § WRK_L_EXPANDPTR(R10) ,R1 Hatters ATE AMOUNT LEFT 
51 7D 06 1256 MOVG = R1, = SP) [PUSH SUTPUT DESCRIPTOR 
be56 1588 
06 6 39 : CALL LIBSCVT_TIME. 
AE D0 0696 1961 ° MOVL  24(SP),RO sGET TYPE CODE 
DD 062A 1 6¢ PUSHL $P ;PUSH ADDRESS OF DESCRIPTOR TWICE 
AE OF 062C 126 PUSHAB & 
53 7D «062F 1264 MOVa ~=s_ 3, = (SP) {PUSH INPUT DESCRIPTOR AND BUFFER 
30 D1 6 1 65 CMPL RO. #ENT_K_DATETIME i1s IT SDATETIM 
12 1266 BNEG THEN SDELTATIME 
04 Fe 6 67 CALLS #4, LIBSCVT_TIME PARSE — THE TIME SPECIFICATION 
046 FB ei ‘ 50$: CALLS #4,LIBSCVT_DTIME SPARSE THE TIME SPECIFICATION 
647 1271; 
647 es t RESTORE STACK AND BRANCH IF ERROR. 
; 7D 0647 1274 60$: mova  (SP)+,R1 :GET OUTPUT DESCRIPTOR 
0 064A 1275 ADDL [POP TIME BUFFER 
f D 0640 1 ud: MOVG = (SP) +, R3 [GET INPUT DESCRIPTOR 
BEDO 630 127 POPL [POP THE TYPE CODE 
0 €9 0653 1278 BLBC —_ RO, 908 ‘BRANCH IF ZRROR 
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PARSENT = PARSE PARAMETERS AND QUALIFIERS 16-SEP-1984 00:10:27 VAX/VMS Macro Vv04-00 Page 30. 
H0e S000 PROCESS SDATETIME VALUE ya ety ys 90:19:47 DCL.SRCJPARSENT.MAR; 1 . 3) | 
i 79 | 
? : RESET EXPANSION BUFFER POINTER. | 
F486 CA 53 ¢ 4 1 : : SUBL R3.WRK_L_EXPANDPTR(R10) ;REMOVE INPUT FROM THE EXPANSION BUF | 
F486 CA «651s C0 s«O06 : 1284 ADDL = R1,WRK“LEXPANDPTR(R10) ‘INSERT OUTPUT IN THE EXPANSION BUFF 
0 60 5 RSB SRETURN 
00038018 8F 50 01 0661 1 5 90$: CMPL RO,#CLI$_BUFOVF ;WAS IT BUFFER OVERFLOW 
o¢ 13 0668 1288 BEQL «=s«9S§ SYES, THEN RETURN THAT STATUS 
05 D1 066A 1289 CMPL 5, #ENT_K_DATETIME ‘1S {7 SDATETIM 
08 12 066D 1290 BNE ‘NO, THEN SDELTATIME | 
66F 1291 STATUS IVATIME :SEf INVALID ABSOLUTE TIME 
05 0676 1298 95$: S RETURN 
0677 1293 97$: | STATUS IVDTIME ‘SET INVALID DELTA TIME 
05 067E 1294 RSB RETURN 
ere 1296 | 
O67 3 3 DEFINE A STUB DCLSSCOPY_DXDX ROUTINE FOR USE BY LIBSCVTTIME. | 
O67F 99 : INPUTS: INPUT DESCRIPTOR, OUTPUT DESCRIPTOR | 
003¢ O67F 1301 ° ENTRY DCLSSCOPY_DXDX,*M<R2,R3,R4,R5> | 
51 04 aC 00 0681 1308 MOVL 4(AP),R1 :GET INPUT DESCRIPTOR 
52 08 AC DO 0685 130 MOVL 8(AP) ,R2 :GET OUTPUT DESCRIPTOR 
62 61 B81 0689 1304 CMPW 3s (R11), (R2) ‘WILL STRING FIT 
OD 1A 068C 1305 BGTRU 90$ 'NO, THEN RETURN ERROR 
62 61 3C O068E 1306 MOVZWL (R1),(R2) SCOPY STR GTH 
04 B82 0481 62 28 0691 1307 MOVC3 (R2).a4(R1),@4(R2) :COPY DESCRIPTO 
01 DO 0697 1308 MOVL #1,RO :SET NORMAL STATUS 
04 069A 1309 RET :RETURN 
0698 1311 90$: STATUS BUFOVE :SET BUFFER OVERFLOW | 
04 O06A2 1312 RET SRETURN | 
| 
| 
| 
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PARSENT = PARSE PARAMETERS AND QUALIFIERS 1o-SeP=1 7 VAX/VMS Macro v04-00 Page 31. P 
y0e HOO PROCESS SPARENTHESIZED_VALUE VALUE 4-SEP=1 138 98: 19: DCL. SRCIJPARSENT. MAR; 1 . day V 
A Be .SBTTL PROCESS SPARENTHESIZED_VALUE VALUE 
6A 1 " DCLSPAREN_VALUE = PROCESS SPARENTHESIZED_VALUE VALUE 
6A3 1 18 ; THIS ROUTINE IS CALLED TO PROCESS A SPARENTHESIZED_VALUE VALUE AND TO EMIT A 
6A 19 : DESCRIPTOR TO THE RESULT PARSE TABLE. 
6A 1 ; INPUTS: 
6A3 1 : : R3 = CLASSIFICATION OF VALUE (PTR_K_QUALVALU OR PTR_K_PARAMETR) 
GAS 1324 ; R5 = -1 IF FIRST VALUE IN A PARENTHESIZED LIST 
6A3 1325 : RB = ADDRESS OF ENTITY BLOCK 
O6A $ ; ; R10 = BASE ADDRESS OF COMMAND WORK AREA. 
6A3 1328 OUTPUTS: 
6A3 1329 : 
GAS 1330 ; RO = STATUS 
6A3 1331 : RI/R2 ; *DESCRIPTOR OF VALUE 
6A3 1 é :- 
6A3 1 
06A3 1334 DCLSPAREN_ VALUE: :PROCESS LIST 
O1F8 8F 6A3 1335 POSHR #*M<R3,R4,R5,R6,R7,RB> :SAVE REGISTER s. 
01 00 O6A7? 1336 MOVL #1,R4 :SET PAREN COUN 
att 
O6AA 39 : CHECK FOR AND SAVE LEATING PAREN. IF NONE, PROCESS AS A FILE SPEC. 
F953" 30 6AA 1341 ° BSBW DCLSMOVCHAR : COPY TERMINATOR INTO EXPANSION BUFFER 
F950" 30 O6AD 1 4g BSBW = DCL SMARK K START OF VALUE STRING 
55 FRFEFFFFF 8F D1 peat 134 CMPL #-1,R5 AS gan i eee SEEN? 
0B 13 06B7 1344 BEQL 108 YES, THEN BRA 
F944" 30 0689 1345 BSBW  DCLSSETNBLK :SKI6 LEADING BLA NKS 
28 #50 91 O6BC 1346 CMPB sR, #AA"(* [IS FIRST CHAR AN OPEN PAREN? 
09 13 068F 1347 BEQL 208 :YES, THEN BRANCH 
FDFC 31 6c 48 BRW DCLSPROCFILE1 [NO, PROCESS AS A FILE SPEC 
F939" 30 Deca 1350 10$:  BSBW DCLSBACKUPMOVE ;RESTORE FIRST PAREN 
£936: 0 06C7 1351 BSBW = DCLSMARK [MARK START OF VALUE STRING 
F933" 30 ot 38 20$: BSBW  DCLSMOVCHAR 'COPY PAREN INTO EXPANSION BUFFER 
6CD 1354 ; 
CD 33 : GET REST OF SPARENTHESIZED_VALUE 
F930° 3 6CD 1 33 555 BSBW © DCLSGTBTOKEN :COPY TOKEN INTO EXPANSION BUFFER 
F92D" 600 1 : BSBW DCLSMOVCHAR [COPY CHARACTER WHICH STOPPED GETOKEN 
5 13 06D3 135 BEQL TERRO ir ain? F LINE 
29 50 91 0605 1360 CMPB  =saRO, #*A")* CL LOSE P 
06 if 608 1361 BNEQ 308 HEN AER ip 
54 OD DA 1 6¢ DECL R4 DECREMENT PAREN COUNT 
0B 13 O6DC 136 BEQL 40% ‘BRANCH 
gD 11 O6DE 1364 BRB 25$ iKEEP GETTING TOKENS 
28 50 91 0660 1365 308 CMPBeaRO, #*A"(* :0P AREN? 
£8 12 0663 1 66 BNEQ 25$ N SKIP 
4 D6 06€5 136 INCL = RG 2NO THEN, T PAREN COUNT 
E64 11 O6€7 1 68 BRB 25$ ‘KEEP GETTING TOKENS 
669 1 6 
6E9 1370; 
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y002000 PROCESS SPARENTHESIZED_VALUE VALUE eats ri 9: 13: f DCL. SRCJPARSENT.MAR; 1 ° (14) 
434 4 ; GENERATE VALUE DESCRIPTOR 
F914" 30 O6E9 1 8 Los: BSBW DCLSMARKEDTOKEN GET DESCRIPTOR OF VALUE STRING 
54 D4 O6EC 1376 CLRL CLEAR ENTITY WN L 
55 —E 00 O6EE 1375 MOVL (SP),R5 GET CLASSIFICATION OF VALUE TOKEN (R3) 
8 D4 O6F1 1 8 CLAL R CLEAR THE FLAG 
59 0 O6F3 137 MOVL R8B,RI SET ADDRESS OF ENTITY BLOCK 
57 51 D oF 6 137 mMOVa R1,R7 SET LENGTH AND OFFSET O 
F904" 30 of? a BSBW DCLSGENDESCR GENERATE RESULT PARSE DESCRIPTOR 
6FC 1381; 
rt ! ¢ 3 CLEAN UP AND RETURN 
F901" 30 O6FC 1384 ° BSBW DCLSTESTBLANK THROW AWAY INSIGNIFICANT BLANKS 
FRFE* 30 O6FF 1385 BSBW bcL SGENTERM SAND SET TERMINATOR IN LAST TOKEN 
O1F8 8F BA O78 1 $ POPR #°M<R35,R4,R5,R6,R7,RB> ;=RESTORE REGISTERS 
50 03 00 0706 1 MOVL 3,R0 SET STATUS 
tt ri : 
O1F8 8F BA O70A 1390 90S: POPR #*M<R3,R4,R5,R6,R7,RB> ;ZRESTORE REGISTERS 
O70E 1391 STATUS NOPAREN ;SET INVALID SYNTAX 
05 0715 1392 RSB ; 


initia 
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_ PARSENT = PARSE PARAMETERS AND QUALIFIERS 16-SEP-1984 00:10:27 VAX/VMS Macro V04-00 Page 33 F 
y0e 2800 PROCESS SACL VALUE Pre ee 1 b8e SR:1Si et PAX/VaS Mace NO4n00 ee fz, 
re ! 38 r -SBTTL PROCESS SACL VALUE ' 
£16 36 : DCLSACL = PROCESS SACL VALUE 
716 1 38 : THIS ROUTINE IS CALLED TO PROCESS A SACL VALUE AND TO EMIT A f 
re 1236 ; DESCRIPTOR TO THE RESULT PARSE TABLE. 
£16 1401 > INPUTS: 
716 1208 : R3 = CLASSIFICATION OF VALUE (PTR_K QUALVALU OR PTR_K_PARAMETR) f 
716 1404 : = <1 JF FIRST V VALUE IN A PARENTHESIZED LIST ] 
216 1405 : RB = ADDRESS OF ENTITY BLOCK i 
r16 14 6 R10 = BASE ADDRESS OF COMMAND WORK AREA. 
716 1408 > OUTPUTS: | " 
ne 1290 : RO = Tus ' 
Orie 1411: RI/R2 ‘DESCRIPTOR OF VALUE ‘ 
Orie 1218 | 
0716 1414 DCLSACL: PROCESS LIST F 
7E 01 00 0716 1415 MOVL #1, =(SP) :CLEAR ay! GNIF ICANT PAREN FLAG | F 
53 DD 0719 1416 PUSHL R3 | F 
OFIB 1218 | : 
ar 1419 : DETERMINE IF PROCESSING FIRST LIST AFTER AN EQUAL SIGN AND HANDLE F 
3718 1? y ; SPECIAL CASE OF POSSIBLY ONE OR TWO OPEN PARENTHESES. , 
F8E2" 30 O71B 14 é ‘ BSBW DCLSMOVCHAR :COPY TERMINATOR Into EXPANSION BUFFER F 
FBDF® 30 O71E 14 BSBW DCLS$SETNBLK i SKIP LEADING BLANKS F 
FBDC’ 30 0721 1424 BSBW DCLSMARK K START OF VALUE STRING | F 
28 «50—CtO9 07 4 1425 CMPBseRO, #*A"(' a AREXT CHAR OPEN PAREN? | F 
10 13 0727 1426 BEQL §«=s«1008 SYES, THEN SKIP F 
55s FFFFFFFF ef D1 07 ° 14 , cHPL #-1.R5 sFIRST VALUE IN LIST? | F 
| 
Face" 6 7 : 1429 BSBW DCL SBACKUPHOVE Ye Pg RESTORE FIRST PAREN | F 
04 AE 03 00 07 1430 MOVL #3,4(SP) “MARK of iRst PAREN WAS SIGNIFICANT | F 
54 01 pO 0739 1431 108: Mov. #1. [SET PAREN COUNT | F 
F8C1" 30 073¢ 14 2 BSBW © OCLSMARK caer’ START OF VALUE STRING | F 
F8BE’ 30 O73t 14 ; BSBW DCLSMOVCHAR :COPY PAREN INTO EXPANSION BUFFER | 
740 1435 ; F 
O74 16 $: : GET REST OF SACL 
F888 30 745 1438 50$ BSBW DCLSGTBTOKEN :COPY TOKEN INTO EXPANSION BUFFER F 
F8B8" 9 745 1439 BSBW DCLSMOVCHAR [COPY CHARACTER WHICH STOPPED GETOKEN F 
* 13 0748 1440 BEQL 90% TERROR IF END OF LINE F 
29 50 91 O74A 1441 CMPB  =s RO, #*A")* iCLOSE PAREN? F 
06 if 74D 1448 BNEQ 30% [NO, THEN SKIP F 
4 D2? O74F 144 DECL = RG :DEERERENT PAREN COUNT F 
0B 13 0751 1444 BEQL 40¢ BRA F 
gD 11 0753 «1445 BRB 20$ IREEP GETTING TOKENS f 
ae et ae oat ! 
E? D6 075A 1448 INCL = RG INCREMENT PAREN COUNT F 
4 11 re 1469 BRB 208 SKEEP GETTING TOKENS 
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; GENERATE VALUE DESCRIPTOR 


+ CLEAN UP AND RETURN 


BSBW DCLSTESTBLANK 


; THROW AWAY INS 
BSBW en 


I 
AND SET _TERMINA 
:SET STATUS 


;COPY TOKEN INTO EXPANSION BUFFER 
;POP STATUS AND R 
SET INVALID SYNTAX 


G CANT BLANKS 
T N LAST TOKEN 


NIFI 
OR | 


$:  BSBW  DCLSGTBTOKEN 
$: ADDL 

STATUS NOPAREN 

RSB 


kk kk tt tt 
PPL LLLP PPL PPP LLLP PEE EE 


rae, 


40s: BSBwW DCLEMARKEDTOKEN GET DESCRIPTOR OF VALUE STRING 
CLRL CLEAR ENTITY NUMBE 
MOVL (SP)+,R5 :GET CLASSIFICATION OF VALUE TOKEN (R3) 
CLRL R CLEAR THE FLAGS 
MOVL RB,RI SET ADDRESS OF ENTITY BLOCK 
MOVa R1,R7 SET LENGTH AND OFFSET OF VALU 
BSBW DCLSGENDESCR GENERATE RESULT PARSE DESCRIPTOR 


CP eS SSS SP eee ee eee ae ee eee TE Ee eT LeeLee ee us ASA SS 


: CLEANUP AND RETURN. 
F486 CA 510 BOS: ADDL _—_—R1, WRK_L_EXPANDPTR(R10) SUPDATE THE EXPANSION BUFFER PTR 
oo: Sant NORMAL SET SUCCESS 
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PARSENT = PARSE PARAMETERS AND QUALIFIERS 16-SEP-19 :10:27 VAX/VMS Macro v04-00 Page 35 
y0e B00 PROCESS SEXPRESSION VALUE yan et} 90:19:94 DCL.SRCJPARSENT.MAR; 1 ° da) 
? 3 1475 . .SBTTL PROCESS SEXPRESSION VALUE 
, 3 169? : DCLSEXPRESSION = PROCESS SEXPRESSION VALUE 
789 1298 THIS ROUTINE IS CALLED TO PROCESS A SEXPRESSION VALUE AND EMIT A 
f 3 14 0; : DESCRIPTOR TO THE RESULT PARSE TABLE. 
, } 14 gi i eeeee NOT SUPPORTED FOR CLISDCL_PARSE CALLS *#e#« 
f 3 14 4 i ? INPUTS: 
783 14 6 ; = CLASSIFICATION OF VALUE (PTR K QUALVALU OR PTR_K_PARAMETR) 
789 1487 : IF FIRST VALUE IN A PARENTHESIZED LIST 
0789 1488 : RB = ADDRESS OF ENTITY BLOCK 
4 tt : R10 = BASE ADDRESS OF COMMAND WORK AREA. | 
oF 9 1491 : OUTPUTS: | 
0789 1298 ; RO = STATUS 
789 1494 : R1/R2 = DESCRIPTOR OF VALUE 
gray 3s 
o7e9 1497 0 DCLSEXPRESSION: ;PROCESS VALUE 
O79 1499 : EVALUATE THE EXPRESSION. | 
F874" 30 0789 1501 ° BSBW DCLSMOVCHAR COPY TERMINATOR | Into EXPANSION BUFF 
F871" 30 O78C 1308 BSBW DCLSSETN NBLK [SKIP LEADING B 
F4B6 CA bp O78F 150 PUSHL LSEXPANDPTR(R1O) : SAVE PRE-EVALUAT ON EXPANSION PTR 
FBGA" 30 0793 1504 BSBW bcc st RPR ZEVALUATE THE EXPRESSION 
2E 50 £9 0796 1505 BLBC ‘BRANCH IF ERROR | 
F486 CA BE +O 0799 1306 MOVL Mae SRESET EXPANSION PTR | 
079E 1508 ; | 
a9 1309 : CONVERT BINARY RESULTS TO ASCII. | 
52 DS 79E 1511 ° TSTL RR :BINARY RESULT? 
08 12 O7A 1318 BNEQ 508 THEN SKIP CONVER S10N | 
50 51 00 O7Ae 151 MOVL  R1,R0 ‘Get THE VALUE TO CONVERT 
F858" 30 7A 1514 BSBW  DCLSCBTA_DEC :CONVERT THE BINARY VALUE TO DECIMAL | 
10 11 O7A8 1515 BRB 80$ ‘DONE 
ae 
PAA 1318 3 COPY THE ASCII EXPRESSION RESULT OVER THE ORIGINAL EXPRESSION 
51 DD O7AA 1520 $0$:  PUSHL RI SAVE STRING, LENGTH 
F486 DA «62 «2«451~—2B «OO7AC:sO1521 MOVC R1,(R2),@WRK_L_EXPANDPTR(R10) :COPY T HE STRING 
51 8ED0 O07B2 15 : POPL “RESTORE STRING LENGTH 
52 F486 CA 00 078 13 ; MOVL § WRK_L_EXPANDPTR(R10) ,R2 [GET THE BUFFER ADDRESS 
1 
1 
1308 
1886 
1531 


— 
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RSE 198e 98:08:41 


; EXPRESSION EVALUATION ERROR 
1334 iss: STL (S$P)+ 


pel Vas Hac 
DC..SRCIP 


sFIX STACK 


¥046=00 
NT.MAR;1 


ree 
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ISSUE PROMPT AND GET RESPONSE 46-SEP-1984 DCL. SRCJPARSENT.MAR; 1 
zCA i ~SBTTL ISSUE PROMPT AND GET RESPONSE 
oA | 33 ; ISSUE_PROMPT = ISSUE PROMPT AND GET RESPONSE 
7CA 1541 : THIS ROUTINE IS CALLED WHEN A REQUIRED PARAMETER IS MISSING 
cA 4 ; FROM A COMMAND. THE USER IS PROMPTED FOR MORE INPUT. 
rch 44 ? INPUTS: 
7CA 1 46 : RB = ADDRESS OF ENTITY BLOCK 
PCA 1547 ; R10 = DRESS OF COMMAND WORK AREA 
pea 1268 ; R11 = ADDRESS OF PROCESS WORK AREA (FOR SUPERVISOR MODE PROMPTING) 
rch 1330 : WRK_B_PARMCNT = # PARAMETERS OBTAINED SO FAR 
aFeA 133¢ : OUTPUTS: 
7CA 1554 ; RO = NEXT CHARACTER IN INPUT BUFFER 
O7tA 1339 ; R1 = RETURN STATUS 
O7CA 1839 : 
O7CA 1558 ISSUE_PROMPT: 
O7CA 1559; 
1445 1360 3 ALLOCATE SPACE FOR THE PARAMETER PROMPT ON THE STACK. 
7E F99E CA 7D O7CA 1368 MOVQ  WRK_W_PMPTLEN(R10) ~ (SP); SAVE PREVIOUS PROMPT STRING DESCRIPTOR 
SE 28 C2 O7CF 156 SUBL § #ENT_R_MAX_PROMPT+8,S 3GET SIZE OF THE BIGGEST PROMPT STRING 
0702 1564 LUS eftRa FOR COUNT, COLON, SPACE,ETC. 
53 SE 00 97 1365 MOVL = SP, R3 [GET ADDRESS OF STORAGE TO BUILD PROMPT STRI 
0705 1369 : | 
8708 1268 3; INITIALIZE THE PROMPT. 
83 96 0705 1570 ° CLRB ss (R3) + ZERO LENGTH OF PROMPT STRING 
OD €0 O7D7 1571 BBS #WRK_V_USRMODE ,- :1F SET THEN USER PROMPT ROUTINE 
05 FO AA 0709 1378 WRK_@_FLAGS(R16),10$ _; 
83 00F1 CB BO o70¢ 157 MOVW PRC WTPMPTCTRL(R11),(R3)* s INSERT CR/LF PAIR 
83 SF BF 90 43 1374 10$: MOVB = #*A7_7,(R3)¢ Tsét CONTINUATION CHARACTER 
Ores 1376 
ze) 1327 GET THE PROMPT STRING FROM THE TABLES 
50 1A A8 32 Sree 1358 | CVTWL = ENT_W_PROMPT(R8) ,RO :GET PROMPT STRING OFFSET 
50 58 ¢ ree 1381 ADDL R8,RO ;GET PROMPT STRING ADDRESS 
7EC 1582 ; 
7eC 13 $ : INSERT THE PARAMETER PROMPT ON THE STACK 
51 80 9A O7EC 1585 ° MOVZBL (RO)+,R1 ;LENGTH IN R1, ADDRESS IN RO 
83 80 90 O7EF 1 6 408: MOVE (RO) +. (R3)¢ :MOVE CHAR RACTER TO PROMPT STRING 
FA 51 OF rFe 1 SOBGTR R1,4 ANY MORE TO MOVE? 
gs Q5A F BO O7F5 1 8 MOVW #*A/: /,(R3)4 TINSERT SUFFIX CHARACTERS 
1 : ¢ 7FA 1 SUBL3 SP,R3,R4 [GET NUMBER OF CHARACTERS IN PROMPT 
te 1 : 30 SUBB3 «#1. R1. (SP) :SET NEW LENGTH 
159 
i 1398 : DO ELTHER SUPERVISOR MODE OR USER MODE PROMPT 


ee 
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vou=000 ISSUE PROMPT AND GET RESPONSE o2$Eb=| Sac 9913:44 DCL.SRCJPARSENT .MAR; 1 : hi 


1596 ; 
0D €0 03 1595 BBS #WRK_V USRMODE - s1F SET THEN USER PROMPT ROUTINE 
37 FO AA 1396 WRK_Q_FLAGS(R10),60$ =; 
5 8 
, 1335 + PROMPT FOR THE PARAMETER USING DCL'S PROMPT ROUTINE 
FOSE CA 6E) O98 7 1885 MOV7BW (SP),WRK_W_PMPTLEN(R10) ;SET PROMPT STRING LENGTH 
FOA2 CA O01 AE 9E 100¢ MOVAB 1(SP5,WRR_C_PMPTADDR(R10);SET PROMPT STRING ADDRESS 
12 160 SETBIT WRK_V_INQOIRE,- ;MAKE IT LOOK LIKE INQUIRE 
12 1604 WRK-W~FLAGS (R10) ; $O WE GET BACK CONTROL/2'S (EOF) 
17 1605 SETBIT WRK-VCONTIN,- ‘MAKE IT LOOK LIKE A CONTINUATION 
17, 16 : WRK "W"FLAGS (R10) ; $O THE RECALL BUFFER IS UPDATED 
dt % 79 18 16 BSBW SF ORNBLK FORCE NONBLANK CHARACTER 
10 1 BIE 1608 BNEQ ‘BRANCH IF NON-NULL 
51 08 AB. dO 1609 MOVL PRC_L_INPRAB(R11),R1 [GET ADDRESS OF INPUT RAB 
0000'c1 81 08 4 1610 CMPW RABSL~STS(R1) ° SEND OF FILE? 
0000" 8F 0 8 1611 #RMS$_EOFS*XFFFF ; 
03 12 0828 161¢ BNEQ [BRANCH IF NOT 
50 1A 9A 0820 161 MOVZBL #CTRLZ,RO [YES, THEN SKIP THIS COMMAND 
0830 1614 50$:  CLRBIT WRK_V_INQUIRE,- SCLEAR INQUIRE FLAG 
08 : 1615 WRK-W~FLAGS (R10) ; 
8 1616 CLRBIT WRK-VCONTIN,- [CLEAR CONTINUATION FLAG 
0835 161 WRK -W~FLAGS (R10) ; 
51 1 DO 0839 1618 MOVL #1,R1 ;SET NORMAL STATUS 
1 11 083C 1619 BRB 90$ :GO CLEAN-UP 
ORSE 165% 
OB3E 16 é + PROMPT FOR THE PARAMETER USING THE USER'S PROMPT ROUTINE 
Wa 2s ORs 1624 60$: MOVL  SP,R1 3GET ADDRESS OF ASCIC PROMPT STRING 
7E  O1A1 9E 0841 1625 MOVAB 1(R1),-(SP) [PUSH PROMPT STRING ADDRESS 
7E 61 9A 0845 1626 MOVZBL (R1),-(SP) [PUSH PROMPT STRING LENGTH 
5E 0848 1627 MOVL P, [GET ADDR OF PROMPT DESCRIPTOR 
50 F9A6 CA p 4B 1628 MOVL WRK L_PROMPTRTN(R10),RO :GET ADDRESS OF PROMPT ROUTINE 
F7AD" 0850 1629 BSBWY  DCLSUSER_INPUT SCALL USER INPUT ROUTINE 
SE 08 CO 0853 1630 ADDL 4#8,SP [POP THE PROMPT DESCRIPTOR 
50 00000000°8F D1 0856 1631 CMPL  #RMS$_EOF,RO SEND OF FILE? 
08 if} 85D 16 : BNEQ 708 [NO, THEN CONTINUE 
51 01 DO O85F 16 MOVL #1,R1 SSEf SUCCESSFUL STATUS 
50 1A 00 862 1634 MOVL  #CTRLZ,RO SRETURN CTRL/Z AS FIRST CHARACTER 
08 11 0865 1635 BRB 90$ ; 
50 pp 67 16 6 70$:  PUSHL RO ‘SAVE RETURN STATUS 
F794" 30 0869 16 BSBW  DCLSSETNBLK [GET FIRST CHARACTER 
51 BEDO 086C 1638 POPL Ri SRETURN STATUS IN R1 
B6F 1639 
B6F 1640 ; 
B6F 1644 : CLEAN UP AND RETURN 
SE Bet 1808 $0$: ADDL $#ENT_K_MAX_PROMPT+8,SP  ;DEALLOCATE PROMPT BUFFER STORAGE 
FOE CA BE 7D 08 ; 1644 MOVG  (SP)4,QRK_Q_PMPTLEN(R10);:RESTORE PREVIOUS PROMPT ADDRESS 
0877 1645 RSB SAND RETURN WITH FIRST CHARACTER IN RO 
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f 164 Ee ~SBTTL CHANGE COMMAND SYNTAX 
f 168) | : DCLSCHANGE_SYNTAX = PROCESS A CHANGE LIST AND CHANGE THE COMMAND SYNTAX 
78 16 g 3; THIS ROUTINE IS CALLED TO REDEFINE THE SYINAX 5 THE COMMAND BEING PARSED 
d 1634 | ; ACCORDING TO THE DESCRIPTION IN THE CHANGE L 
78 1655 ; INPUTS: 
37 1626 3 
78 1657 ; R7 = QUALIFIER NUMBER 
87 1608 3 R8 = ADDRESS OF ENTITY DESCRIPTOR BLOCK 
of 1933 3 R10 = ADDRESS OF COMMAND WORK AREA 
7 1661 ; OUTPUTS: 
7 1006 ° | 
0878 166 : RO = 9 If NO NEW QUALIFIER LIST 
fe 1983 : IF NEW QUALIFIER LIST 
$87 1666 ; : APPROPRIATE WRK BLOCK FIELDS ARE MODIFIED TO REFLECT THE 
bBo 1960 ; NEW COMMAND SYNTAX. 
087 1669 : WRK_L_IMAGE = NEW IMAGE ADDRESS 
oes 1670 ; WRK “5° “MINPARM = MINIMUM PARAMETER COUNT | 
0878 1671; WRK-B_MAXPARM = MAXIMUM PARAMETER COUNT 
oe 1678 3 WRK-L-PROPTR = PARAMETER L 
0878 167 ; URK “L_QUABLK = QUALIFIER LIST 
$44 1674 : WRK-G_RESULT = TOKEN ARRAY | 
0878 1675; | 
0878 1676 ;:- 
0878 1677 
0878 1678 DCLSCHANGE_SYNTAX: | 
56 DOD 0878 1679 PUSHL R6 SAVE REGISTERS | 
7E D4 087A 1680 CLRL =(SP) INIT PARAM/QUAL LIST STATUS 
0040 8F AB O87C 1981 BISW #WRK_M_VERB,- 3SET VERB PROCESSING FLAG ONCE AGAIN | 
FO AA 0880 16 ¢ WRK_@_FLAGS(R10) | 
OC As «C1 bere 168 ADOL3 ENT _L_SYNTAX (RB) - GET ADDRESS OF CHANGE LIST 
56 DE AA 0885 1684 WRK"L-TAB_VEC(R10) .R6 : | 
C3 AA 95 0888 1685 TSTB WRK-B ~(RBOPT (R10) FIRST SYNTAX CHANGE SO FAR? 
04 3 tt4 1686 BNEQ 10$~ ONLY RECORD THE FIRST CHANGE MADE | 
C3 AA 57 88D 168 MOVB R7,WRK_B_CMDOPT(R10) sSAVE QUAL # INDUCING THE FIRST CHAN. 
0891 1688 ; FOR GETOPT CALLBACK (SET/SHOW) | 
4d 1689 
91 1690; 
231 1691 ; CHANGE IMAGE 10 ope EXECUTED | 
91 1936 : IF USER ROUTINE = GET ROUTINE ADDRESS. 
age 192? 3 IF Cul ROUTINE OR IMAGE = GET ADDRESS OF ASCIC ROUTINE NAME OR FILE SPEC. 
14A6 046 91 $3 1695 10S: CMPB #CMD_K_SAME,CMD_B_HANDLER(R6)  ; IMAGE CHANGE REQUESTED? 
13 0895 1999 BEQL 40$ ~ ‘BRANCH IF NOT 
AA 97 169 BICW sua mM_CL BINIWAK_M_USERRTN, ~ ;CLEAR PREVIOUS IMAGE STATE 
F2 99 1698 WRK 7 _PLAGS2(R10) 
50 1A A6 33 98 169 CVTWL 4 CMD-W" IMAGE (R6) RO GET BRO TO IMAGE/ROUTINE INFO 
50 3 9F 1700 ADDL R6,RO™ : COMPUTE REAL ADDRE 
14 A6 4 1 A2 1701 CMPB ech. K_CLI,CMD_B_HANDLER(R6) sARE WE DEALING W WITH A CLI ROUTINE? 
12 A6 17 ¢ BNEQ $ THEN SKIP 
AB 17 SETBIT WRK_V_CLIRTN,WRK_W FLAGS2(R10) ise CLI ROUTINE FLAG 
14A6 02 91 AC 1704 15$: CMPB #CMB_R_USER,CMD_B_RANDLER(R6) WE DEALING with A USER ROUTINE? 


———— 
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002000 CHANGE COMMAND SYNTAX ofe=19 198 8 13: DCL. SRCJPARSENT.MAR; 1 9° 18) 
07 «12 1705 BNEQ 208 THEN SKIP 
Be 17 4 SETBIT WRK V_USERRTN,WRK_W_FLAGS2(R10) set USER ROUTINE FLAG 
50 0 00 17 MOVL [GET ROUTINE ADDRESS 
—2 AA 50 OD 9 7 8 20S: MOVE RO,WRK_L_ IMAGE (R10) [SAVE IMAGE/ROUTINE INFO 
D 1710 ; 
8p Wit : CLEAR/SET NOSTATUS BIT. 
88 151 ios: CLRBIT WRK V NOSTAT WRK_W_FLAGS(R10) ;CLEAR STATUS FLAG 
05 06 4 1 +t 1e1$ BBC tho o Fracse cad. s;BRANCH IF STATUS SHOULD BE SET 
He at SETBIT Gan “Vv “NOSTAT. ey oe + LAGS(RI0) sSET STATUS FLAG 
BCC 177 
N NITION 
ogee 1718 CHANGE PARAMETER DEFINITIONS 
0S €1 O8cc 1791 S08: Bac #CMD_V_PARMS ;BRANCH IF NO PARAMETER CHANGE 
22 04 Ab O8CE 17 : cmp @ FLAGS( RG), 60$ : 
00 EF 0O8D1 17 EXTZv #CMB_0_M ARM, = EXTRACT MINIMUM PARAMETERS 
04 08D3 1724 #CMD"S “RINPARR. = : 
15 A6 0804 1725 CMD_6 PARMCNT(R6) ; 
D1 AA «50 90 0807 1726 OVB RO,QRR_B_MINPARM(R1 : 
06 EF O8DB 1727 EXTZV #CMD_V“MAXPARM, - SEXTRACT MAXIMUM PARAMETERS 
04 O8DD 1728 CMD ~S~MAXPARM, = : 
50 15 A6 O8DE 1729 MD_6_PARMCNT(R6) ,RO : 
DO 50 90 O8€1 1730 MOVB RO, QRR_B_MAXPARM(R10 
50 08 A6 bg O8E5 1731 MOVL Hb L_PARMS(R6) RO iGET OFFSET TO NEW PARAMETER LIST 
06 13 O8€9 17 3 BEQL 5$~ :I1F NONE, THEN NO MORE PARAMS jALLoweD 
50 DE AA CO O8EB 17 ADDL § WRK_L_TAB_VEC(R10) [GET ADDRESS OF PARAMETER LIST 
C6 AA 50) «=O sCOOBEF «61734 55$: MOVL RO, ORR _L_PROPTR(R1 SRESET ADDRESS OF PARAMETER LIST 
Oars 1780 
OB 7 2; : CHANGE QUALIFIER DEFINITIONS 
06 €1 OBE 1739 40S: BBC #CMD_V_QUALS ;BRANCH IF NO QUAL CHANGE 
42 04 A6 O8F5 1740 cMD_@ “FLAGS (R6) .80 
50 OC A6 09 O8FB 1741 MOVL § CMDL-QUALS(R6) ,RO 3GET OFFSET TO NEW QUALIFIER LIST 
04 13 OBFC 1748 BEQL 65$7 F NONE, TH RE QUALS ALLOWED 
50 DE AA CO OBFE 174 ADDL § WRK_L_TAB_VEC(R10),.RO :GET ADDRESS OF QUALIFIER LIST 
CAAA 50. 00 0905 1744 65$:  MOVL RO, ORR _L_GUABLK (R16) SRESET ADDRESS OF QUALIFIER LIST 
906 1746; 
0906 1909 > INVALIDATE ALL QUALIFIERS IN THE TOKEN ARRAY, INCLUDING THE QUALIFIER WE 
0906 1768 + MAY BE CURRENTLY PROCESSING, SO THAT ALL QUALIFIERS IN THE PREVIOUS SYNTAX 
906 1749 : ARE NO LONGER ACCESSIBLE. {HIS IS DONE TO PREVENT PREVIOUS QUALIFIERS 
0906 1750: BEING CONFUSED WITH THE CURRENT QUALIFIER NUMBERING SCHEME. THE 
0906 1751: INVALIDAT ION S DONE BY ZER IN G THE QUALIFIER NUMBER IN THE TOKEN ARRAY, 
906 17 é 3 ESSENTIALLY TO RECORD THAT A QUALIFIER WAS DETECTED IN THAT POSITION 
3 6 7 33 THAT IT DOESN'T REPRESENT ANY QUALIFIER IN THE CURRENT QUALIFIFER LIST. 
50 F9AA CA 9 906 1755 MOVAB WRK_G RESULT-PTR C_LENGTH(R10),RO ;GET ADDRESS OF TOKEN ARRAY 
50 o¢ CO 0908 17 : 70$: ADDL #piR C_LENGTH,RO™ sSKIP fO NEXT 
BA AA 50 01 O90E 17 CMPL wRk™ +t _RSLNXT (R10) SREACHED LAST ENTRY STORED? 
18 1E 0912 17 8 GEGU at} :BRANCH IF SO 
914 17 ASSUME PTR_K_COMDQUAL EQ ; 
914 1760 ASSUME PTRTK“PARMQUAL EQ : 
914 1761 ASSUME PTR™ “K “QUALVALU EQ 2 


= PARSE PARAMETERS AND QUALIFIERS 16-SEP-19 4 00:10:27 VAX/VMS Macro v04-00 Page 41. 
CHANGE COMMAND SYN 4-5 aatt 7 90:19:44 DCL.SRCJPARSENT.MAR; 1 . (18) | 
1¢ «ED 0914 1768 CMPZV #PTR_V_TYPE,- J QUALIFIER? 
60 04 916 17 #PTR-S- TYPE. (RO) ,- : 
‘ 918 1764 #PTRIK-QUALVALU : | 
FO «(1A «(0919 «1765 BGTRU 70% :SKIP IF NOT 
- 16 E0 18 1766 BBS #PTR_Y.SYNTAX,~ 7SKIP IF QUALI. CHANGED SYNTAX 
6E iF DO O91F 1768 MOVL «#1, ( §P) :SET BIT TO INVALIDATE THIS QUALIFIER 
08 AO D4 «(09 176 72$:  CLRL PTR_L_ENTIT “ZERO ENTITY BLOCK ADDRESS (INVALIDATE IT) 
1¢ 05 FO 0925 1770 INSV #PTR_R_I TGHORE ROOTR Vv -TYPE,= sSET IGNORE FLAG IN TYPE FIELD 
60 928 1771 SPIRO “S"TYPE, (RO) : 
DF 11 O92A 1078 BRB 0$ * SLOOP UNTIL ALL QUALIFIERS INVALIDATED 
OA 6E 00 €3 092C 1773 75$:  BBCS 4#0,(SP),80$ ‘BRANCH IF NO QUALIFIERS SEEN 
9 " 1774 STATUS IGNQUAL SSET THE IGNORED QUALIFIER STATUS 
D6 BA 16 0937 1775 JSB @WRK_L_SIGNALRTN(R10) :SIGNAL THE INFORMATIONAL MESSAGE 
93a 1979 | 
935A 1778 ; GET NEW DISALLOW EXPRESSION TREE. | 
07 «€1 33h 1780 80$: BBC #CMD_V_DISALLOWS ;BRANCH IF NO DISALLOW CHANGE | 
E 04 A6 093¢ 1781 CMD_@_FLAGS(R6) $0$ | 
50. «10 Ab 09 095F 178 MOVL CMD“L ~DISALLOWCRG) © RO iGeT OFFSET TO DISALLOW EXPRESSION TREE | 
50 DE AA CO 0945 1784 ADDL WRK_L_TAB_VEC(R10),RO ‘tA EULATE ACTUAL ADDRESS | 
£6 AA 50s 0949 1785 85$:  MOVL RO, ORR _L_BISALLOW(R10) SAVE ADDRESS OF DISALLOW EXPRESSION TREE | 
094D 1787 ; | 
0940 1788 > RESTORE REGISTERS AND RETURN 
50 BEDO 094d 1790 90s: POPL RO :SET QUAL/PARAM LIST STATUS 
56 BEDO 0950 1791 POPL R6 SRESTORE REGISTERS | 
05 0953 1792 RSB SRETURN FROM SUBROUTINE 
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PARSENT = PARSE PARAMETER 
v04 SEARCH VERB TABLE 46-SEP-1984 DCL. SRCJPARSENT.MAR; 1 
3 4 1794 .SBTTL SEARCH VERB TABLE 
3 4 1786 ; DCLSSEARCH_VERB = SEARCH VERB TABLE AND OBTAIN VERB INFORMATION 
954 1798 : THIS ROUTINE SEARCHES THE VERB TABLE FOR A SPECIFIED STRING. 
934 1799 ; IF FOUND, THE VERB ATTRIBUTES ARE STORED IN THE COMMAND WORK AREA. | 
994 a $ INPUTS: 
954 1 $6 : R8 = ADDRESS OF COMMAND TABLES | 
954 1804 : Rl = LENGTH OF VERB TOKEN | 
994 23 R2 = ADDRESS OF VERB TOKEN 
0994 0? > OUTPUTS: | 
0954 1809 : RO = STATUS CODE | 
0954 1810: R8& = ADDRESS OF CMD BLOCK 
0954 1811: THE COMMAND WORK AREA IS INITIALIZED IF VERB FOUND 
Bat HBle I 
0954 1814 DCLSSEARCH_VERB:: 
02cO 8F BB 0954 1815 PUSHR #*M<R6,R7,R9> :SAVE REGISTERS 
$988 1812 | 
0958 1818 ; TRIM VERB TO FOUR CHARACTERS. | 
54 51 7D Oee8 1820 * MOVQ =e R11, RG :SAVE COMMAND VERB DESCRIPTOR 
54 04 D1 0958 1821 CMPL = #4 RG [COMMAND VERB LESS THAN 5 CHARACTERS | 
03 18 O95E 1 : BGEG «208 TIF GEQ, USE ORIGINAL LENGTH 
54 04 00 096 18 ; MOVL #4,R4 [SET TO SCAN ONLY 4 CHARACTERS | 
963 1825 ; 
is 18 b ; FIND BASE AND SIZE OF VERB AND POINTER TABLES. 
57 58 OC AB C1 0963 18 : 208 ADDL3 VEC_L_COMDPTR(R8) ,R8,R7 :GET BASE OF POINTER TABLE | 
57 08 CO page : M ADDL #VET_R_HEADER_LENGTH,R7 zSKIP PAST POINTER TABLE HEADER | 
53 58 OBA cI 968 1831 ADDL3 VEC_L_VERBTBL (RB) ,RB,R3 :GET BASE OF VERB TABLE 
52 6 970 1 : CVTWL 4 VECTWTSIZE(R3) ,R2 [GET SIZE OF TABLE + HEADER 
52 «08 «62 «(0973 «1 SUBL_ #VEC_R_HEADER_LENGTH,R2 SREMOVE HEADER | 
56 52 04 C7? 0976 1834 DIVL3 #4,R2, ?GET SIZE IN VERBS (4 BYTES PER VERB 
53 (08 )~=— 0 097A ADDL #VEC_K_HEADER_LENGTH,R3 [SKIP PAST VERB TABLE HEADER 
97D 1837; | 
320 33 ; SEARCH VERB TABLE FOR SPECIFIED VERB. 
63 52 65 54 39 O097D 1840 228:  MATCHC R4,(RS5),R2,(R3) :SCAN FOR VERB MATCH | 
0A 13 0982 1841 QL :BR IF VERB MATCH | 
984 1 4g STATUS Ivers S INVALID VERB 
OOFO 31 0988 184 BRW 0$ : 
sal 
3 E 4s t IF MATCH WAS NOT ON LONGWORD BOUNDARY, THEN KEEP LOOKING. 
50 53 54 C3 O98E 1 48 25$:  SUBL3 R4,R3,RO :GET ADDRESS OF MATCHED VERB 
$1 «50 93 CB 0992 184 BICL #3.R *R1 [ROUND ADDR TO LONGWORD ADDR | 
1 50 01 0996 1850 CMPL = RO. RI [1S IT SAME AS ORIGINAL? | 


N 
S AND QUALIFIERS 


; VERB MATCH FOUND = EXTRACT ATTRIBUTES FROM COMMAND BLOCK 


$0s: MOVB CMD_B_VERBTYP(R9) ,= SET VERB TYPE FOR OLD INTERFACE 
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y0n2600 SEARCH VERB TABLE a ety 90:18: 9 DCL.SRCJPARSENT.MAR; 1 . 19) | 
c 13 0999 BEQL 278 sYES, THEN DONE 
50 c3 0998 SUBL3 #1,R4,RO SSTART SEARCH ONE CHAR AFTER 
0 C2 099F SUBL sR “RS t FIRST CHAR OF MATCH 
; 9A i ADDL —RO.R ; 
D6 9A § BRB 228 SKEEP LOOKING 
SAP BSS 
Ar 38 3 VERB MATCH FOUND = GET ADDRESS OF CMD BLOCK. 
DE AA 58 09 9A 60 27$:  MOVL. RB,WRK b TAB_VEC (R10) ZSAVE ADDRESS OF TABLES VECTOR 
59 2 BH 9AB 61 DIVL #4,R2,R ;CALCULATE INVERSE COMMAND INDEX 
59 9 A3 O9AF 6¢ SUBW3 «ROL R6LRO ;CALCULATE VERB INDEX 
i A2 0983 186 UBW , ‘ZERO BASE THE RESULT 
59 6749 ° DE AA C 986 64 ADDL3 WRK_L_TAB_VEC(R10),(R7)CR9J,R9 GET ADDRESS OF COMMAND BLOCK | 
9BC 66 : 
ac 6 : CHECK FOR AMBIGUOUS VERBS. 
00 £0 bon 3 : BBS #CMD_V_ABBREV,- :1F SET, NON UNIQUE ACCEPTABLE 
1C_04 Ag O98E 870 CMD_@_FLAGS(R9) ,30$ F 
54 C2 09C 71 SUBL —s_R4,R ‘BACKUP TO START OF VERB ENTRY FOUND | 
63 06 00 65 54 ¢0 09C4 es CMPCS 4. (RS) ,#0,84, (R3) SEXACT MATCH? 
11. 13 O9CA 187 BEQL SIF EXACT MATCH, IGNORE AMBIGUITY | 
63 06 65 54 39 O9CC 187% MATCHC R4,(R5),#4,(R3) [SCAN FOR DUPLICATE MATCH 
OA 12 0901 1875 BNEQ SIF NEQ UNIQUE MATCH 
0903 id: STATUS ABVERB [AMBIGUOUS COMMAND VERB 
00A1 31 O9DA a BRW 90$ : 
79 
80 
ee 
4 
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| 
C2 AA ie 8 WRK"B-VERBTYP(R105 : 
50 so’? ag 3 Ee 3 cVTWL CMD, W_NAME(R9) .RO 7SAVE VERB NAME 
BE AA 01 A0 9E O3E8 8 MOVAB 1(RO),WRK_L_VERB(R10) ‘SKIP PAST FIRST ASCIC COUNT | 
00 EF O9E $9 EXTZV #CMD_V_MINPARM, - ;EXTRA AINIMUM NUMBER OF PARAMETER | 
04 OF 90 #CMD"S"MINPARM,- : 
50 15 a9 9F1 1891 CMD 6 PARMCNT(R9) RO : | 
D1 50 90 O09F4 3 MOVE RO,ORR_B MI (R10) : 
04 EF O9F8 189 EXTZV #CMAD_V“MAXPARM, - SEXTRACT MAXIMUM NUMBER OF PARAMETER | 
4 OFA 189% #CMD7S~MAXPARM, = ; 
50 15 a9 9FB 1895 CMD 6 PARMCNT(R9) RO : | 
DO AA 50) «(90 Hi 3 MOVB RO,QRR_B_MAXPARM(R10) ; 
50 OC Ad 00 A 9 MOVL § CMD_L_QUALS(R9) ,RO GET OFFSET TO FIRST QUALIFIER DESC | 
3° 13 OA 9 BEQL 408 TIF EQL NONE | 
50 (58 CO A 90 ADDL RB. RO SCALCULATE ACTUAL ADDRESS | 
CAAA 50 »D ni 3 40$:  MOVL  RO.WRK_L_QUABLK(R10) :SET ADDRESS OF QUALIFIER DESCRIPTOR 
50 08 a9 AOE ; ; mOVL EHD_L_PARMS(R9) .RO iGET OFFSET TO FIRST POSITIONAL ENTI 
50 33 cO 0A15 «19 ¢ ADDL a8. no [CALCULATE ACTUAL ADDRESS 
C6 AA D0 ais 3 6 50$:  MOVL  RO,WRK_L_PROPTR(R10) ZSAVE ADDRESS OF PARAMETER DESCRIPTO | 
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V04= SEARCH VERB TABLE G=SEP=1984 23:6 CL. SRCIPARSENT.MAR; 1 (19) | V 
50 10a9 DO OAI 1908 MOVL CMD_L_DISALLOW(R9) ,n0 GET OFFSET TO DISALLOW EXPRESSION T 
13 0A20 19 SEQL 338) IF EQL 
50 cO (OA 1910 ADDL R8,R CALCULATE NACTUAL ADDRESS 
E6 AA D A 3 1914 55$ MOVL = “ORK _L_DISALLOW(R10) :SAVE ADDRESS OF DISALLOW EXPRESSION: 
50 1¢ ag 33 Ao9 1318 CVTWL CMD_W_OUTPUTS(R9) ,RO GET OFFSET TO OUTPUT LIST 
13 QAeD 1914 BEQL 608 SIF EQL 
50 59 CO OACF 1915 ADDL R9,RO ; ‘CALCULATE MACTUAL ADDRESS 
D2 AA «650~—Ss«éO A é 1916 60$:  MOVL  RO,WRK_L_PAROUT(R10) SSAVE ADDRESS OF OUTPUT LIST 
CE AA 9 Ba 6 1918 CLRB = WRK_B_PARMCNT(R10) ;CLEAR COUNTS OF PARAMETERS | 
CF AA 94 OA39 1919 CLRB  - WRK-B_PARMSUM(R10) 
C3 AA 96 OA3BC 1920 CLRB - WRK-B-CMDOPT (R10) ‘CLEAR ENTITY # CAUSING SYNTAX CHANG 
ASF 1921 CLRBIT WRK-VNOSTAT,WRK_W_FLAGS(R10) ;CLEAR STATUS FLAG 
1 €1 OAS4 19 : BBC aC 7_NO ;BRANCH IF STATUS SHOULD BE SET 
05 04 Ad 0OA66 19 CMD_@ “FLAGSCR $), 
Day 19 , SETBIT WRK-V"NOSTAT, une oes + LAGS(RIO) SET STATUS FLAG 
AGE 19 $ : 
AGE 1927 : IF USER ROUTINE - GET ROUTINE ADDRESS. 
OAsE 1863 : IF CLI ROUTINE OR IMAGE = GET ADDRESS OF ASCIC ROUTINE NAME OR FILE SPEC. 
03 AA OAGE 1930 628: BICW  #WRK_M CLIRTN:RK_M_USERRTN, ~ ;CLEAR PREVIOUS IMAGE STATE 
F2 AA 0A5O 1931 WRK_@_FLAGS2(Ri\ ” 
50 1AA9 32 OAS 193¢ CVTWL CMD" WT IMAGE (ROD, 32 'GET BRO TO IMAGE / ROUT INE INFO 
50 59 CO 0A56 193 ADDL R9,RO™ : COMPUTE REAL | 
1409 01 91 0A59 1934 CMPB = @CMD_K_CL1, CMD_Fi_HANDLER(R9) ARE We DEALING mite A CLI ROUTINE? | 
04 12 OA5D 1935 BNEQ THEN SKIP | 
OASF 1936 SETBIT WRK_V_CLIRTN,WEK_W.FLAGS2(R10) se CLI ROUTINE FLAG 
1409 02 91 OA63 1937 65S: CMPB #CMB_R_USER, éMy _B_RANDLER(RY) ARE WE DEAL ING WITH A USER ROUTINE? 
07 12 OA6? 1938 BNEQ ; THEN SKIP | 
0A69 1939 SETBIT WRK_V_USERRTN,WRK_W_FLAGS2(R10) ; :NOs USER ROUTINE FLAG 
50 60 00 OA6D 1940 MOVL :GET ROUTINE ADDRESS 
E2 AA 50 00 0a70 1941 70$: MOVL RO,WRK_L_IMAGE(R10) :SAVE IMAGE/ROUTINE INFO 
OA74 1903 ; 
Ar, 1944 : RESTORE STATE AND RETURN SUCCESS. 
OA74 1946 STATUS NORMAL sSET SUCCESSFUL STATUS 
58 59 DO OA7B 194 MOVL 9,R8 ‘RETURN CMD BLOCK ADDRESS 
02cO BF BA OA7E 1948 90S: POPR #*M<R6,R7,R9> SRESTORE REGISTERS 
05 OAB2 1949 RSB 
OA83 1950 
OA83 1951 END 
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Symbol table whee: 4 ety: 99:19: 


PTR_V_KEYWORD 15 

PIR-V-NEGATE ; Sas URKCV-I 
= 
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TYPE_L_KEYWORDS 
"READER_LENGTH 
COMDPTR 
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“RECALLCNT 


MOON LUI ONO" WOOO Co 


Sa Die De De Be Rs De Bs Bs Be Be | 


K OU 
WRK-L~PMPTADDR 
WRK-L~PROMPTRIN 
WRK-L~PROPTR 
WRK~L~QUABLK 
WRK~L-READRTN 
SLIRECALLPTR 
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! Psect synopsis ! 


pore an wm cen nemo em en} 


PSECT name Allocation PSECT No. Attributes 


- ABS . 00000000 ( -)> 00 ¢ 9. NOPIC USR CON ABS LCL NOSHR NOEXE 
SABSS FFFFFFFC ( -) O1¢ 1.) NOPIC USR CON ABS LCL NOSHR EXE 
DCLSZCODE O0000A83S ( 2691.) NOPIC USR CON REL LCL NOSHR- EXE 
$a emer en ween ween wn ee ween + 
: Performance indicators ! 
eSeerneerrennrezere2zrexee2ee em2reree => & 
Phase Page faults CPU Time Elapsed Time 
nitialization :00:00. :00:00. 
Initializati 0:00:00.07 0:00:00.52 
zonnens processing 80 8 88:09- 4 0:00:06.54 
s 1 298 00:00:1 36 00:00:40.79 
Synbol table sort 9 0:00:01.1 0:00:03.50 
Pass 2 3 0:00:04.61 0:00:20.91 
Symbol table output 4 0:00:00.24 0:00:00.33 
Psect synopsis output 00:00:00.03 00:00:00.03 
Cross-reference output 88 #88 798-99 Bp Be 09-08 
Assembler run totals 750 00:00:19. 00:01:12.62 


The working set Limit was 1800 pages. 

69752 bytes (157 pages) of virtual memory were used to buffer the intermediate cod 

There were 50 pages of symbol table goece a to hold 688 non-local and 145 tocal symbols. 
1951 source Lines were read in Pass 1, produci ngo° object records in Pass 2. 

34 pages of virtual memory were used to define 20 macros. 


foo e omen ose eaten ome teem eee ee + 
! ; Macro Library statistics : 


Macro Library name Macros defined 


$255$DUA 8: SYSLIBJSYSBLDMLB.MLB; 1 0 
3 55$0UA28:COCL.OBJIJDCL “MLB: 1 g 
“$255$DUA28: (SYS .OBJ tIB: 31 0 
“$255$DUA 8: SYS IBISTARLET. MLB; 2 5 
TOTALS (all Libraries) 14 


790 GETS were required to define 14 macros. 
There were no errors, warnings or information messages. 
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NOWRT NOVEC BYTE 
WRT NOVEC 


BYTE 


T NOVEC BYTE 
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